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本 書 は 、 シ ャ ー プ パー ソナ ル ワ ー ク ステ ーション 「X68000ACE」、「X68000ACE| HD |」 上 で 動 
作 す る 「X-BASIC」 の 説明 書 で す 。X-BASIC の 機能 、 お よび その 使い 方 が 詳細 に 解説 され て いま 
ま 。 

な お 、 本 機 の 取扱 いや ビジ ュ ア ル シ ェ ル の 使い 方 な ど に つい て は 、 別 冊 の 「 取 扱 説明 書 」 に わか り 
や すく 説明 され て いま す 。 初 め て 本 機 を お 使い に な る 方 は 、 必 ず 「 取 扱 説明 書 」 を 先 に ご 覧 くだ さい 。 


下図 は 本 機 に 同 梱 の 4 冊 の マニ ュ アル の 互い の 関係 を 示し て いま す 。 
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マニ ュ ア ル の 使い 方 
0 


この マニ ュ ア ル は 、 本 機 で 使用 で きる プロ グラ ミン グ 言 語 、X-BASIC の 説明 書 で 、 そ の 概念 や 特 
長 、 文 法 の 解説 、, 各 コマ ンド や 関数 の リフ ァ レ ンス 、 及 び 資 料 編 か ら 構 成 さ れ て いま す 。 特 に 基本 的 
な 文法 や 、X-BASIC に 特有 の 機能 な ど に つい て は 第 1 章 か ら 第 3 章 を ご 覧 くだ さい ぃ 。 第 4 章 は 、 実 
際 の プロ グラ ミン グ 時 に 参照 する 辞書 と し て ご 利用 いた だ ける よう 、X-BASIC の すべ て の キー ワー 
ド に つい て アル ファ ベッ ト 順 に 説明 し て あり ます 。 ま た 、 ど の よう な コマ ンド 関数 が ある か を 調べ 
る 場合 の た め に 、 機 能 別 索引 も 用 意 さ れ て いま す 。 
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BASIC マ ニュ アル 


第 1 草 基礎 編 


・X-BASIC の 特長 


X-BASIC は 、Human68k 上 で 走る イン タブ リタ BASIC で す 。 func 一 endfunc、switch 文 、 ブ 
ロッ ク if 文 な ど を 用 いて 、C 言語 の よう な 構造 化 プ ログ ラミ ング スタ イル を 実現 する こと が で きま 
す 。 ま た 、 イ ンタ プ ブリタ BASIC の 長所 で ある 修正 (デバ ッ グ ) 作業 の し や すさ と 、 ス クリ ー ン エ デ 
ィ タ に よる プロ グラ ム 編 集 の し や すさ も 兼ね 備 と てい ます 。 

特に 、 本 機 の 特長 で ある グラ フィ ッ ク 、 ス プラ イト 、 サ ウン ド 等 の ハー ドウ ェ ア 機 能 は 、 す べ て 外 
部 関数 と し て サポ ー ト され て お り 、X-BASIC の 本 体 ( 核 ) と は 独立 し た 構造 を と っ て いま す 。 こ の 
た め 別 売 の 「C Compiler PRO-68K」 を 利用 する こと で 、 独 自 の 外部 関数 を 作成 し た り 、X-BASIC 
の ソー スプ ログ ラム を C 言 語 の ソー スプ ログ ラム に コン バー ト す る こと が で きま す 。 


具体 的 に は 次 の よう な 特長 を 備 と を て いま す 。 

@ ブ ログラム 内 で 種々 の 関数 定義 が で き 、 ロ ー カ ル 変 数 の 使用 に より 再帰 呼び 出し が 可能 

@ フ ァイル 構造 は Human68k と 同一 で 、C 言語 の よう な ファ イル 処理 が 可能 

@ デ ー タ 型 と し て int (4 バイ ト 整 数 )、char (1 バイ ト 整 数 )、float (8 バイ ト 実 数 )、str (文字 ) 
の 4 つ を サポ ー ト 

@ Human68k 上 の 日 本 語 FP (フロ ント プロ セッ サ ) を 利用 し て 、 日 本 語 処理 (JIS 第 1 、 第 2 水準 
漢字 ) が 可能 (日 本 語 入力 の 方 法 に つい て は 「 取 扱 説明 書 」 を 参照 し て くだ さい ) 

@ フ リー エリ ア お よび 使用 する 外部 関数 の 指定 な ど が 可能 


・ 起 動 す る 前 に 


X-BASIC を 起動 する 前 に 、 必 ず シ ステ ム デ ィ ス ク と 辞書 ディ スク の バッ クア ッ プ コピ ー を 作成 し 
て くだ さい 。 作成 方 法 に つい て は 、「 取 扱 説明 書 」 ま た は 「Human68k ユー ザー ズ マ ニュ アル 」 を 参 
照 し て くだ さい 。 

今後 の 作業 で は 、 こ の バッ クア ッ プ され た シス テム ディ スク や 辞書 ディ スク を 使い 、 マ スタ ー デ ィ 
スク (本 機 に 付属 の 原本 ) は 、 大 切 に 保管 し て お いて くだ さい 。 
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1.1 X-BASIC へ よう こそ 


ここ で は 、 共 -BASIC の 起動 と 終了 の 方 法 を 説明 し ます 。 
1.1.1 ビジ ュ ア ル シ ェ ル ( デ スク トッ プ 画 面 ) か ら の 起動 
X-BASIC の 起動 方 法 に は 、 大 きく 分 け て 次 の 2 つが あり ます 。 


・ ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) か ら の 起動 
・Human68k の コマ ンド モー ド か ら の 起動 (本 前 の コ ラム 「X_-BASIC の いろ いろ な 起動 」 を 
参照 し て くだ さい ) 


ここ で は 、 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) か ら X-BASIC を 起動 する 手順 を 説明 し ます 。 

まず 、 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) を 起動 し ます 。(「 取 扱 説明 書 」 を 参照 し て くだ さ 
い )。 次 に 、「BASIC2」 の フォ ル ダ ー ア イコ ン を マウ ス ・ ト ラッ クボ ー ル で ポイ ント し て 、 左 ボタ ン で 
グン ジル グリ タック ル ま す 。 

フォ ル ダ ー の ウィ ンド ウ が 開い た ら 、「BASIC.X」 の アイ コン を マウ ス ・ ト ラッ クボ ー ル で ポイ ント 
し て 、 友 ボタン で ダグ アル グリ ツク し ます 。 

し ば らく する と XX-BASIC が 起動 し て 、 次 の 画面 が 表示 され ます 。 


X-BPFSIC for %58M99 uersion 2.9M 
Copuright 1987 SHRRP/Hudson 
128 kbutes free 


画面 に は 点 減 す る カー ソル が あり ます 。 こ の 状態 を 、 入 力 待ち 状態 と いい 、 キ ー ボ ー ド か ら X- 
BASIC の 命令 や プロ グラ ム を 入力 する こ と が で きま す 。 入力 し た 文字 は カー ソル の 位置 に 表示 され 
まま 細 き 


1.1.2 了 
X-BASIC を 終了 する に は 、 入 力 待ち 状態 の と き に 、 次 の よう に 入力 し ます 。 
system [| (| は リタ ー ン キー を 押す こと ) 


画面 に メッ セー ジ が 表示 され ます の で 、 何 か キー を 押す か 、 マ ウス ・ ト ラッ クボ ー ル の ボタ ン を ク 
リッ ク し て くだ さい 。 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) に 戻り ます 。 

また 、 フ ァ ン クシ ョ ン キ ー の |[F10 | キー を 押し て も 「system」 と 表示 され ます の で 、 表 示さ れ た 
ら 、 リ ター ン キ ー を 押し て くだ さい 。 同 じ よ うに し て 、 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) に 戻 
3 


1.2 プロ グラ ム な ん て 惑 く て ない 


X-BASIC が 起動 し た ら 、 次 の よう に キー ボー ド か ら 入 力 し て くだ さい 。 


1.2 プロ グラ ム な ん で 恐 で な い 


print 12-7 


カー ソル は 「7」 の 後ろ で 点 減 し て いま す 。 で は 、 リ ター ン キ ー を 押し て くだ さい 。 画面 は 次 の よ 
う 避 な っ だ は ず で す 。 


print 12-7 
5 
Ok 


いま 入力 し た 命令 は 、「12 一 7 を 計算 し て 、 そ の 結果 を 画面 に 表示 し な さい 」 と いう 意味 で す 。 こ の 
よう に 、 直 接 X-BASIC に 命令 を 与え を て すぐ に 結果 を 出さ せる こと を 、 ダ イレ クト モー ド て で 実行 す 
る 、 と いい ます 。 ま た 、 い ま 入 力 し た 「print 12 一 7 」 全 体 を 、 命 令 文 と いい ます 。 

ダイ レク トモ ー ド て で 入力 、 実行 し た 命令 は 、 コ ンピュータ の メモ リ に 記憶 され ませ ん 。 「 使 い 捨て 」 

の 命令 は 、 ダ イレ クト モー ド で 実行 し ます (た だ し 再 利用 する こと も で きま す 。 こ れ に つい て は 後 ほ 
ど 説 明 し ます )。 

で は 、 カー ソル 移動 キー を 使っ て 、 カ ー ソ ル を 「print」 の 「p」 の 位置 に 移動 し て くだ さい 。 次 に 
| INS | キー を 押し ます 。 | INS | キー の 売 い ラ ンプ が 点灯 し まし た か 。 続 け て 次 の よう に 入力 し ま 
す 。 


10 
「10」 の あと は スペ ー ス キー を 1 回 押し ます 。 入力 し た ら リ ター ン キ ー を 押し て み ま し ょ う 。 


10 print 12-7 
Ok 
Ok 


含 度 は 計算 結果 が 画面 に 表示 され ませ ん で し た 。 な ぜ で し ょ う 。 こ の 「 謎 」 の 答え は 、 行 の 先頭 の 
「10」 に あり ます 。 

XX-BASIC で は 、 行 の 先頭 に 1 か ら 65535 ま で の 整数 (' 行 番号 」 と いい ます ) と 1 つ 以 上 の スペ ー 
ス が あり 、 そ の 後ろ に 命令 文 が 続い て いる も の を 、「 プ ログ ラム 」 と 考え ます 。 プ ログ ラム は コン ピュ 
ー タ の メモ リ に 記憶 され て いて 、「 実 行 し な さい 」 と いう 命令 を 与え を る まで は 何 も し ませ ん 。 

キー ボー ド か ら 、 


run (| は リタ ー ン キー を 押す こと ) 
と 入力 し ます 。 ま た 、 フ ァ ン クシ ョ ン キ ー の |F 5 | キー を 押し て も 同じ こと が で きま す 。 


10 print 12-7 
Ok 


計算 結果 が 表示 され まし た 。 こ の よう に 、 プ ログ ラム を コン ピュ ー タ の メモ リ に 記憶 きせ て 、 あ と 
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で 結果 を 出さ せる こと を 、 プ ログ ラム モー ド で 実行 する 、 と いい ます 。「run」 は 、 プ ログ ラム を 実行 
する 命令 で す 。 
カー ソル を 「12 一 7 」 の 「1」 に 移動 し て 、 


"X58000" |J 


と 入力 し 、 さ ら に カー ソル を 「run」 の 行 に 移動 し て 、 い き な り リタ ー ン キー を 押し て み ま し ょ う 。 


10 print "X68000" 
Ok 

Fun 

X68000 

Ok 


run 命令 を 再度 入力 し な く て も 、 プ ログ ラム は 実行 され まし た 。 し か も 今度 は 、 計 算 結 果 で は な く 、 
「X68000」 と いう 文字 が 表示 され て いま す 。 こ の よう に 、X-BASIC で は 、 画 面 に 表示 され て いる 文 
字 を 修正 し て (ちあ るい は その まま )、 何 度 で も 再 利用 で きま す 。 

ここ で 注意 。 画 面 に 表示 され て いる プロ グラ ム を 修正 し た り 、 新 し く 行 番号 を つけ て プロ グラ ム を 
作成 し た と き は 、 そ の あと で 必ず リタ ー ン キー を 押し ます 。 リ ター ン キ ー を 押さ ず に カー ソル 移動 キ 
ー で カー ソル を 他 の 行 へ 移動 し た と き は 、 作 成 、 修 正 の 結果 は コン ピュ ー タ の メモ リ に 記憶 され ませ 
衝 。 

で は 次 に 、「”X68000"」 を 「”Human68k"」 に 変更 し て み ま し ょ う 。 カ ー ソ ル を 「 双 」 に 移動 し て 


か ら | INS | キー を 押し ます 。 続 け て 、 


Human 


と 入力 し (リタ ー ン キー は 押し ませ ん )、 | DEL | キー を 1 回 押し ます 。 次 に カー ソル を 「 8」 の 右 の 
「 0 」 に 合わ せ て 、 


k 


と 入力 し て か ら | DEL | キー を 3 回 押し ます 。 こ こま で の 変更 は 、 ま だ コン ピュ ー タ の メモ リ に 記憶 さ 
れ で て いま せん 。 仕 上 げに り リターン キー を 押し まし ょ う 。 


10 print "Human68k" 
Ok 

run 

X68000 

Ok 


プロ グラ ム を 実行 し ます 。「run」 の 行 に カー ソル を 移動 し て リタ ー ン キー を 押し て くだ さい 。 


10 print "Human68k" 
Ok 


Fun 


1.2 プロ グラ ム な ん で 難く な い 


Human68k 
Ok 


カー ソル の 位置 は その まま で 、 


cls 
と 入力 し て くだ さい 。 画面 表 示 が 消え て 、 左 上 に 「Ok」 だ けが 表示 され た は ず で す 。 こ の よう に 「『「cls」 
は テキ スト 画面 を 消去 する 命令 で す 。 プ ログ ラム も 消え て し まっ た の で し ょ うか 。 
で は 、 湊 の よう に 入力 し て くだ さい >。 


list 
画面 が 消え て も 、 メ モリ に 記憶 きれ て いる プロ グラ ム ま で 消え て し まう わけ で は あり ませ ん 。list 命 
令 で いつ で も 表示 で きま す 。 ま だ た 、 フ ァ ン クシ ョ ン キ ー の |F 4 | キー を 押し て も 同じ こと が で きま す 。 
「]list」 は 、 プ ログ ラム リス ト を 表示 する 命令 で す 。 


Ok 
list 

10 print "Human68k" 
Ok 


行 番号 の 左 に スペ ー ス が 3 文字 分 入っ て いま す が 、 実 行 に は 何 の 影 響 $ も あり ませ ん 。 list 命令 の 表示 
形式 が 、 い つも 行 番号 5 桁 分 を と る よう に な っ て いる だ け の こと で す 。 た だ し 、 行 番号 の 右 に は 、 必 
ず 1 つ 以上 の スペ ー ス を あけ な けれ ば な り ま せん 。 

「10」 の 「 1 」 に カー ソル を 移動 し て 、 


2 | づ 


と 入力 し て くだ さい 。 繰り 返し 同じ 位置 に カー ソル を 移動 し て 、「2」 を 「3」 に 、「3」 を 「4」 に 書 
き 換 えて 、 そ の た びに リタ ー ン キー を 押し ます 。 次 に 、 カ ー ソ ル を 「Ok」 の 下 の 空 いて いる と ころ に 
移動 し て か ら 、 


run 回 (また は IF 5 | キー を 押し ます ) 


を 大 丸 し ます 。 や うす る と ……… 


Ok 
list 
40 print "Human68k" 
Ok 
run 
Human68k 
Human68k 
Human68k 
Human68k 
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Ok 


プロ グラ ム を 見 て み ま し ょ う 。Hist 命令 を 使い ます 。 そ の 場 で 'list」 と 入力 し て リタ ー ン キー を 押す 
か 、|[F 4 | キー を 押す か また は 「list」 と 表示 され て いる 行 に カー ソル を 移動 し て リタ ー ン キー を 押し 
ます 。 


Ok 

list 
10 print "Human68k" 
20 print "Human68k" 
30 print "Human68k" 
40 print "Human68k" 

Ok 


何 の 役 に も た た な い プ ログ ラム で す が 、 誤 動作 する わけ で は あり ませ ん 。 それなり に 「 完 成 し た 」 
プ 避 グラ ム で す 。 

いま まで の 操作 で 、 プ ログ ラム は 簡単 に 作成 で きる ん だ 、 と いう 雰囲気 は わか っ て いた だ けた で し 
則 ウ 5 

で は 、 次 に も う 少 し プロ グラ ム ら し い 例 を 示し まし ょ う 。 

キー ボー ド か ら 、 


new 
8utO 同 


と 入力 し て くだ さい 。「10」 と いう 数 字 が 表示 され て 、 そ の 右側 で カー ソル が 点滅 し て いる は ず で す 。 
「new」 は 現在 メモ リ 上 に ある プロ グラ ム を 消去 する 命令 、「auto」 は 行 番号 を 自動 的 に 発生 させ る 命 
令 で す 。 


new 
Ok 


次 の プロ グラ ム を 入力 し て くだ さい 。 行 番号 は 、 リ ター ン キ ー を 押す と 自動 的 に 表示 され ます の で 、 
入力 する 必要 は あり ませ ん 。 ま た 、 も し 前 の 行 に 入力 ミス が あっ た と し て も 、 そ れ は すべ て 入力 し た 
あと で 修正 で きま す 。 


1.2 プロ グラ ム な ん て 恐く な い 


19 /#* sample.bas 

20 int x,y,fg 

39 screen 2,9,1,1 

49 vpage(1 ) 

59 windon(9,9,1923,10923) 
69 mouse( の ) 

79 mouse(4) 

89 home( の 9,384,384 ) 

99 fi11(499,499,659,659,9) 
199 while fg=9 

119 fg=msbtn(1.9,09) 
120 mspos(x,yY) 

139 home( の 9,x,y) 

149 endwhile 

159 vipe( ) 

169 end 


「end」 ま で 入力 し て リタ ー ン キー を 押し た ら 、 続 け て | BREAK | キー を 押し ます 。 入 力 ミ ス が ある 
よう で し た ら 、 カ ー ソ ル 移 動 キ ー と | INS | キー、| DEL | キー な ど を 使っ て 修正 し て くだ さい 。 修正 
し た ら 、 リ ター ン キ ー を 押す こと を お 忘れ な く 。 

それ で は 実行 し て み ま し ょ う 。 プ ログ ラム を 実行 する 命令 は 「run」 で し た 。 


run |J| (また は |F 5 | キー を 押し ます ) 


と 入力 し ます 。 グ ラフ ィ ッ ク が 表示 され た ら 、 マ ウス ・ ト ラッ クボ ー ル を 動か し て み ま し ょ う (ボタ 
ン は 押し ませ ん ) 。 四 角形 が マウ ス ・ ト ラッ クボ ー ル の 動き に 合わ せ て 移動 し ます 。 左 ボタ ン を クリ ッ 
ク みず する と ど 、 ブ ログ ラム は 終了 し ます 。 う まぐ 実 衝 で きた で し ょ うか 。 

せっ か く 入 力 し た プロ グラ ム で す 。 消 し て し まう の は も っ た いな い の で 、 フ ロッ ピー ディ スク に 保 
存 し ます 。 ドラ イブ B に フォ ー マ ッ ト し た ば か り の フロ ッ ピ ー デ ィ ス ク を 入れ て 、 次 の よう に 入力 し 
て くだ さい 。 


save  "b: sample.bas" 


プロ グラ ム の 保存 に つい て は 、 あ と の 節 で も う 少 し 詳し く 説 明 し ます 。 
次 に 、 そ の 他 の プロ グラ ム の 修正 方 法 に つい て 説明 し ます 。 


(1) 行 の 追加 

行 番号 は 通常 、10、20、30 と いう よう に 10 ず つ 増 や し た 整数 を つけ て いき ます 。 こ れ は 、 あ と か ら 
行 番号 を 追加 し や すく する た めで す 。 プ ログ ラム を 作成 し て いる と き に 、 行 の 間 に 命 令 文 を 追加 し た 
い 、 と いう こと は 頻繁 に お こり ます 。 

た と えば 、20 行 と 30 行 の 間 に 命令 文 を 追加 する と き は 、 画面 の 何 も 入 力 さ れ て いな い 部 分 に カー ソ 
ル を 移動 し て 、20 と 30 の 間 の 整数 (25 な ど ) を 行 番号 と し て 命令 文 を 入力 し ます 。 入力 し た あと は 、 
必ず リタ ー ン キー を 押し て くだ さい 。 


list 
10 print "これ は ”" 
20 print " 例 で す " 
Ok 
15 print "追加 の " 
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list |J| 
ID prinE "ご れ は " 
15 print "追加 の " 
20 print " 例 で す " 
Ok 


(2) 行 の 削除 
すでに ある 行 番号 だ け を 入力 し て リタ ー ン キー を 押す と 、 そ の 行 は 削除 され ます 。 


list 
10 print " 行 を " 
20 print "この よう に " 
30 print "削除 し ます " 
Ok 
20 
list 
10 print " 行 を " 
30 print "削除 し ます " 
Ok 


まとめ て 削除 する と き に は 、delete 命令 を 使い ます 。 


list 
10 print "複数 行 を " 
20 print "一 度 に " 


30 print "まとめ て " 
40 print "削除 し ます " 
Ok 
delete 20-30 
list 
10 print "複数 行 を " 
40 print "削除 し ます " 
Ok 


(3) 行 の 置き 換え 
すでに ある 行 番号 と 同じ も の に 続け て 、 新 し い 命令 文 を 入力 し て リタ ー ン キー を 押す と 、 そ の 行 は 
自動 的 に 新しい も の と 置き 換わり ます 。 


list 

10 print "内 容 が " 

20 print "置き 換わり ます " 
Ok 


10 


1.2 プロ グラ ム な ん て く な い 


10 print "この よう に " 
list | 

10 print "ご の よう に 7 

20 print "置き 換わり ます " 
Ok 


(4) 行 番号 の つけ 換え 
プロ グラ ム を 作成 し て いる 途中 で 、 行 番号 の 間隔 が 不 揃 い に な っ た り 、 行 番号 が 連続 し て 間 に 行 を 
追加 で き な く な っ た と き に は 、renum 命令 を 使い ます 。 


list 

10 print " 行 番号 を " 

12 print "つけ 換え て “ 

18 print "きれ い に し ま し ょ う " 
Ok 
renum 回 
Ok 
list | 

10 print " 行 番号 を " 

20 print "つけ 換え て " 

30 print" き れい に し まし ょ う " 
Ok 


X_-BASIC で 扱う 予約 語 (変数 名 関数 名 に 使用 で き な い キー ワー ド ) は 、 大 きく 分 け て 次 の 種別 
が あり ます 。 

マンド 

スネ テー トメ ント 

シス テム 変数 

関数 
コマ ンド は 、 プ ログ ラム 中 に 記述 する こと は で きま せん 。 ダ イレ クト モー ド で の み 使 用 し ます 。 
これ まで に 説明 し た 命令 (コマ ンド ) の 詳細 は 、 第 4 章 を 参照 し て くだ さい 。 
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@ 文 : 


用 語 の 説明 


文 と は 命令 文 の こと で 、 コ ンピュータ に 対す る 命令 を 与え を ます 。 文 に は 、 第 4 章 で 説 
明 す る 命令 や 、 代 入 を 行う 式 な ど が あり ます 。 


行い 、 コ ンピュータ に 命令 を 与え を る と き の 単 位 で 、 リ ター ン キ ー を 押す まで に 入力 し 

た も の を 指し ます 。 1 行 は 255 文 字 以 内 で 、1 行 に は 1 つ 以 上 の 文 が 含ま れ て いま す 。 
1 行 に 複数 の 文 を 含む 行 を マル チ ス テー トメ ント と 呼び 、 こ の 場合 に は 文 と 文 の 間 を 

コロ ン (: ) で 句 切 り ま す 。 ま た XX-BASIC で は 大 カッ コ { } に よっ て dim 文中 の 

デー タ を 複数 行 に 分 け て 記述 し た り 、if 文中 で 実行 文 を 複数 行 に わた っ て 記述 する こ 

と も 可能 で す 。 


・ 行 番号 は 、 行 を 複数 個 集 め て プロ グラ ム に する 場合 に 、 行 の 先頭 に つけ る 番号 で す 。 


行 番号 は 1 一 65535 ま で の 整数 で 、 その プロ グラ ム を コン ピュ ー タ の メモ リ に 記憶 する 
順序 を 表し ます 。 ま た 、 プ ログ ラム の 実行 も 行 番号 順 (番号 の 小さ い 順 ) に 行わ れ ま 
す 。 


・ 一 般 に は いろ いろ な 種類 の 情報 の こと を 指し ます が 、BASIC で は ユー ザー が 指定 す 


る 文字 や 数 値 の こと を いい ます 。 た と えば 、「a=1」 と いう の は 、a と いう 変数 に 1 と 
いう 値 を 代入 する と いう こと で す が 、 こ の 場合 の 1 を デー タ と いい ます 。 
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1.3 X-BASIC の プロ グラ ム ス タ イ ル 


1 .3 X-BASIC の プロ グラ ム ス タ イ ル 


次 の プロ グラ ム を 見 て くだ さい 。 


19  /* Tiny EDITOR ted.bas 
29 str fname[29] 

3 の 9 str buff[209] 

49 int fp, fo 

59 ohar CR=13, LEF=10 

69 /* 

7 の 9 tit1e( ) 

89 fninput( ) 

99 fp=fopen(fname, "co" ) 


199 edit() 

119 fc=fclose(fp) 
129 end 

139 /* 


149 funo title( ) 
15 の 9 str dummy 
169 cl1s 


179 。 print "これ は 簡易 エディ タ で す 。" 

189 print "メモ な ど を 作成 する と き に お 使い くだ さい 。" 
199 print "な お 、 す で に 存在 する ファ イル 名 を 指定 し た と き は 、 無 条 " 
299 print "件 に その ファ イル の 内 容 を 削除 し て し まい ます 。 
219 print 

2209 BY 何 か キ ー を 押し て くだ さい  『": 
230 dummy=inkey$ 

240 c1s 

259 endfunoc 

269 funo fninput( ) 

279 print "Tnput file name >": 

280 1input fname 

299 endfuno 

399 funo edit() 

310 print "Tnput data(END = /)" : print 

320 while buff <> "/ リ " 

339 1 させ nu も "> SDuEP 

340 1 buFE <5 と /" も nen 1 

359 fsrites(buff,fp) 

369 fputoc(CR, fp ) 

370 fputc(LF , fp ) 

389 } 


399 endwhile 
499 endfuno 


いま まで BASIC を 使っ た こと が ある 人 で も 、 ち ょ っ と 違う ぞ 、 と 感じ る の で は な いで し ょ うか 。 
この プロ グラ ム に は 、X-BASIC を 特長 づけ る いく つか の 要素 と 、 ぜ ひ 実 践 し て ほし い 事 柄 (ブロ グ 
ラミ ング の 「 作 法 」) が 含ま れ て いま す 。 

BASIC で は お な じみ の goto 文 や gosub 文 が あり ませ ん 。 X-BASIC で も goto 文 や gosub 文 を 
使っ て プロ グラ ミン グ で きま す が 、 使 わな く て も 不便 な こと は あり ませ ん 。 む し ろ 、 プ ログ ラム の 流 
れ を わか り づ らく する 可能 性 の ある goto 文 、gosub 文 は 、 使 わな いこ と を お すす めし ます 。 

goto 文 に 代わ る も の と し て 、 条 件 判断 に よる 分 峡 (ブロ ッ ク 下 文 、switch 文 ) や 繰り 返し (for 
ーnext 文 、while 一 endwhile 文 、repeat--until 文 ) を 制御 する 構文 が あり ます 。 ま た 、gosub 文 で 
呼び 出す サブ ルー チン の 代わ り に 、 よ り 独 立 性 の 高い 関数 (func 一 endfunc) を 定義 むす る こと が で き 
ます 。 

さら に 、 こ れ も BASIC で は 多用 する マル チ ス テー トメ ント を 使っ て いま せん 。 マ ル チ ス テー トメ 
ント に つい て も 、 goto 文 な ど と 同様 に X-BASIC で 使う こと は で きま す 。 し か し 、 プロ グラ ム を より 
見 や すい も の に する た め に 、1 行 1 命令 に する こと を お すす めし ます 。 
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この よう に 、X-BASIC は その 独自 の 特長 に より 、 わ か りや すく 、 ま た 修正 (デバ ッ グ ) 作業 の し 
や すい プロ グラ ム の 作成 、 編 集 を 可能 に し て いま す 。 

この 他 に も 、X-BASIC で プロ グラ ミン グ す る た め に 、 必 ず 知っ て お か な けれ ば な ら な いこ と が あ 
り ま す 。 次節 以降 で 詳し く 説明 し ます 。 


1.4 準備 作業 その 1 


プロ グラ ム で 使う デー タ を し まっ て お く 「 入 れ 物 」 を 、 変 数 と いい ます 。 ま た 、 入 れ 物 に つけ る 名 
前 を 、 変 数 名 と いい ます 。 

X-BASIC で は 、 変 数 を 使用 する と き に は 、 そ の 変数 を これ か ら 使う ぞ 、 と いう こと を 最初 に 宣言 
し な けれ ば な り ま せん 。 こ れ を 、 変 数 の 宣言 と いい ます 。 ま た 、 変 数 を 宣言 する と き に は 、 そ の 変数 
が どん な デー タ の 入れ 物 に な る の か 、 つ まり 、 変 数 の デー タ 型 も 同時 に 宣言 し ます 。 

デー タ 型 に は 次 の も の が あり ます 。 


整数 型 (int 型 ) -2,147,483.648 か ら 2,147,483,.647 ま で の 整数 値 を 扱う 

整数 型 (char 型 ) 0 か ら 255 ま で の 整数 値 を 扱う 

実数 型 (float 型 ) 絶対 値 が 1.1125369292536E-308 か ら 3.5953862697246E 十 308 ま で 
の 倍 精 度 実数 値 を 扱う 

文字 型 (str 型 ) 255 文 字 以 内 の 文字 列 を 扱う 


次 の プロ グラ ム で は 、10 行 か ら 50 行 で 、 そ れ ぞ れ char 型 、int 型 、float 型 、str 型 の 変数 を 宣言 
し 、60 行 か ら 100 行 で 値 を 代入 し て いま す 。 
1 の 9 char c 
2 の int i 
3 の 9 float f 
49 str s 
5 の str s_max[2551 
69 co=200 
79 i=647685 
89 f=14487895.256 
9 の 9 s="X68990" 
199 s_max="ABCDEFGHTJKLMNOPQRSTUVWXYZabcdefghijk1mnopqrstuvwxyg" 


119 print oc,1,f,S,S_ max 
129 end 
str 型 で 33 文 字 以 上 の 文字 列 を 扱う と き に は 、50 行 の 宣言 の よう に 、 文 字 バ ッ フ ァ の サイ ズ を 指定 
し まず: 
デー タ 型 の 宜 言 が 省略 され た と き に は 、 その 変数 は 自動 的 に int 型 に な り ま す 。 これ は 、 実数 値 を 扱 
う プ ログ ラム で は 注意 し な けれ ば な ら な い 点 で す 。 int 型 の 変数 に 実数 値 を 代入 し た と き は 、 計 人 算 結果 
が 正しく な いも の に な る こと が あり ます 。 
変数 は 、 宣 言 と 同時 に 初期 値 を 代入 する こと が で きま す 。 


19 char co=209 


初期 値 を 代入 し な いと き は 、 数 値 (int、char、float) 型 の 変数 に は 0 が 、 文 字 (str) 型 の 変数 に 
は null 文字 (文字 数 0 の 文字 列 ) が 代入 きれ ます 。 
原則 と し て 、 同 じ 名 前 の 変数 を メイ ンプ ログ ラム 中 で 再 宣言 する こと は で きま せん 。 
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デー タ 型 の 詳細 に つい て は 第 3 章 を 、 ま た 、 変 数 の 宣言 方 法 に つい て は 第 4 章 を それ ぞ れ 参照 し て 
くだ さい 。 


用 語 の 説明 
@ 変 数 : 変数 と は 、 そ れ 自 体 が 値 を 表す も の で は な く 、 必 要 に 応じ て 値 を 代入 し た り 、 式 の 一 
部 に な っ た りす る も の で す 。 


変数 名 変数 に つけ る 名 前 の こと で す 。X-BASIC で は 、 変 数 名 は 64 文 字 まで の 英 帝 字 の 組み 
合わ せ で す 。 変 数 名 は 、 予 約 語 を 含ん で いて も か まい ませ ん ( 務 約 語 に つい て は 、 資 
料 編 「 務 約 語 表 」 を 参照 し て くだ さい )。 


1.5 制御 の 流れ 


X.BASIC に は 、 プ ログ ラム の 流れ を わか りや すい も の に する た め に 、 い くつ か の 制御 午 造 を 持っ 
た 構文 が 用 意 さ れん てい ます 。 


1.5.1 条件 に よる 処理 の 分 岐 


ある 一 定 の 条件 に よっ て 、 そ の あと に 実行 する こと を 変え る こと が で きま す 。X-BASIC で は 、if 
文 、switch 文 を 使い ます 。 


・ 革 文 
「 も し 冷蔵 庫 に ビー ル が あれ ば 、 飲 む 。 な か っ た ら 、 茶 の 間 に 戻 る 」 
この よう な 、 条 件 に よっ て その 後 の 行動 (作業 ) を 分 岐 きせ る こと は 、 プ ログ ラム 中 で も 頻繁 に 超 
こり ます 。 そ の よう な と き に は 、 文 ( 放 ーthen 一 else) を 使い ます 。 上 の 例 を プロ グラ ム 的 な 流れ で 
表す と 、 
吾 所 に 行く 
冷蔵 庫 を 開け る 
3. if ビー ル が ある then 飲む (終わ り ) else 茶の間 に 戻る (終わ り ) 
4. 終わ り 


ts う 兄 
* 由 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 

X-BASIC の 王 文 の 特長 は 、 分 岐 後 の 操 作 を 複数 行 に 渡っ て 記述 で きる と ころ に あり ます 。 た と え 
ば 、「 変 数 a の 値 が 5 だ っ た ら 、x* 十 Y の 値 を 変数 に 代入 し て 、“"OK" と 変数 8 の 値 を 表示 させ 、5 
で な か っ た ら 、“NO" と 変数 a の 値 を 表示 する 」 と いう 分 岐 は 、 


19 int a,X, ア 


2 の x=3 

3 の y=10 

4 の a=9 

59 input "Number = "ja 
6 の if a=5 then { 

79 8 ニ X メ + ア 

89 print "OK"」a 
99 } else print "NO",a 


199 end 


1 時) 
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と 記述 で きま す 。 


・switch 文 

「 く じ を 引い て 、 1 等 な ら VTR、2 等 な ら ラ ジ カ セ 、 3 等 な ら タ オル セ モット が も ら え る 。 そ れ 以 外 
は ハズ レ 」 

ある 条件 で 、 複 数 の 動作 に 分 岐 す る と き に は 、switch 文 (Switch 一 case 一 default 一 endswitch) 
を 使い ます 。 上 の 例 を プロ グラ ム 的 な 流れ で 表す と 、 


由 。 6 を 9[S 

2. switch くじ の 中 身 

3 case 1 等 : VTR を も ら う :break (終わ り ) 

4. case 2 等 ・ ラ ジ カ セ を も ら う :break (終わ り ) 

5. case 3 等 : タオ ルセット を も ら う :break (終わ り ) 
6 default  : 涙 を の む 
7 . endswitch 
8 


. 終わ り 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 
Switch 文 で は 、 す べ て の 条件 に 一 致し な か っ た と き 、default 文 が あれ ば 、 そ れ を 実行 し ます 。 
break 文 は 、switch 文 や for 文 、while 文 、repeat 文 か ら 抜け 出す 働き を し ます 。 次 の プロ グラ 
ム の 、30 行 か ら 80 行 と 、90 行 か ら 140 行 で は 、 動 作 が 違っ て きま す 。 


1 int & 

2 の a=1 

39 switch a 

4 の Ca8e の : print “の” : break 
59 case 1 : print "1" : break 
69 大 公 で G の '* DR も 2" 3 Beak 


79 defau1l も t : print "27 
89 endswitoh 

9 の 9 switch a 

199 case の : print "の" 

119 @ASG 1 ? QpBPtnt "1" 

120 CaSe 2 : ppmint "2" 

130 defau1t : print "2?2 リ 
149 endsvitoh 

159 end 


は じ め の switch 文 で は 、 50 行 だ け を 実行 し ます が 、 次 の switch 文 は 、 110 行 か ら 130 行 まで を 実行 
し し し ま My ま す 。 


1.5.2 処理 の 繰り 返し 
ある 条件 が 満た され る まで 、 一 定 の 処理 を 繰り 返し 実行 する こと が で きま す 。 X-BASIC で は 、 for 
文 、while 文 、repeat 文 を 使い ます 。 


・for 文 
「 娘 が 生ま れ て か ら 20 才 に な る まで 、 毎 年 1 つ 絵 皿 を 作る 」 
一 定 の 回 数 、 あ る こと を 繰り 返す と き に は 、for 文 (for 一 next) を 使い ます 。 上 の 例 を プロ グラ ム 
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的 な 流れ で 表す と 、 


. 娘 が 生ま れる 

. for 娘 の 年 齢 三 0 to 20 (1 つ ず つ 増 や す . 20 回 で 終わ り ) 
絵 皿 を 作る 

. next (2. に 戻る ) 

.。 終 わり 


の 1 心 ) CO ト DO ピ 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 
X-BASIC の for 文 は 、 ル ー プ 回 数 を 決め る 変数 を 1 ずつ 増やす こと し か で きま せん 。 


1 の nt ュ 

2 の 9 for i=l to 19 

39 print "X68999 ACE": 
49 print "ig THE GREAT." 
59 next 

69 end 


・while 文 、repeat 文 
ウ ュ ー ト の エー ス が 出る まで 、 ト ラン シンプ を 引く 」 
繰り 返し を 終わ ら せ る 条件 は わか っ て いて も 、 何 回 実行 する の か 明確 で な いと き に は 、while 文 
(while 一 endwhile)、repeat 文 (repeat 一 until) を 使い ます 。 上 の 例 を プロ グラ ム 的 な 流れ で 表す 
ど 。 


トラ ンプ を 引く 

while トラ ンプ く > ハ ー ト の エー ス (ハート の エー ス な ら 終 わり ) 
トラ ンプ を 引く 

.。 endwhile (2. に 戻る ) 

。 終 わり 


OO 必 (で や や ピロ 


まだ は 、 


。 FeDeat 

トラ ンプ を 引く 

。 until トラ ンプ ーー ハー ト の エー ス (1 . に 戻る . ハー ト の エー ス な ら 終 わり ) 
.。 終わ り 


愉 。 CO K ト う 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 
この 2 つの 構文 は 、 条件 を 判断 する タイ ミン グ が 違い ます 。 while 文 は 、 処 理 を 実行 する 前 に 条件 を 
判断 する の で 、 場 合 に よっ て は ルー プ の 中 身 を 一 度 も 実行 し な いこ と も あり ます 。 これ に 対し 、repeat 
文 は 、 必 ず 処 理 を 実行 し て か ら 条 件 を 判断 し ます 。 し た が っ て 、 ル ー プ の 中 身 を 1 回 は 実行 し ます 。 
また 、 条 件 判断 の 基準 も 、while 文 と repeat 文 で は ちょ っ と 違い ます 。 while 文 は 、 条件 が 正しい 
と き ( 真 の と き 、 ま た は 、 偽 に な る まで 、 と いい ます ) 処理 を 繰り 返し ます 。repeat 文 は 、 条 件 が 正 
し く な いと き ( 偽 の と き 、 ま た は 、 真 に な る まで 、 と いい ます ) 処理 を 繰り 返し ます 。 
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19 int 

29 i= の 9 

3 の while i<>1 の 9 /* 「i は 19 で は な い 」 が 正しい と き 繰 り 返 す 
49 print "X680990" 

5 の ュ = ュ + 1 

69 endwhi1le 

7 の 9 end 


19 int 1i 

29 i= の 9 

39 repeat 

49 print "X689909" 

59 ュ 1= ュ +1 

69 unti] i=19 /* 「i は 19 で ある 」 が 正しく な いと き 繰 り 返 す 
7 の end 


while 文 や repeat 文 を 使っ て 、 い つま で も 繰り 返し を 続け る 無限 ルー プ を 作る こと が で きま す 。 無 
限 ル ー プ を 終わ ら せ る に は 、 ル ー プ の 中 で if 文 と break 文 を 使い ます 。 


19 int a 

29 a=1 

39 nhile a=1 /* 正しい 

49 input "Number = ": ュ 
59 3f 3=5 then { 

69 print "Number = 5" 
79 break 

89 

99 print "Number = ": ュ 
199 print "Reenter" 
119 endwhi1le 
129 end 


1.5.3 流れ を 変え る 


繰り 返し を 実行 する と き に 、 あ る 条件 の と きだ け ル ー プ を 抜け た い 、 ま た は 、 ル ー プ の 中 の 処理 を 
その と きだ け 省 略し た い 、 と いう こと も ある で し ょ う 。 goto 文 を 使え ば 簡単 で す が 、 そ れ で は 行 番号 
に 依存 し た プロ グラ ム に な っ て し まい ます 。 goto の 飛び 先 に 新しい 行 を 追加 し た と き な ど は 、 ちょ っ 
と 困っ だ こと に な り そ う で す 。 

X-BASIC で は 、break 文 と continue 文 を 使い ます 。 


・break 文 
「1 年 間 、 釣 銭 の 1 円 玉 を 毎日 ビン に 入れ る 。 た だ し 、 途 中 で ビン が いっ ぱい に な っ た ら 中 止 する 」 
switch 文 の と ころ で も 説明 し まし た が 、 break 文 は 、 switch 文 や for 文 、while 文 、 repeat 文 か 
ら 強 制 的 に 抜け 出す 働き を し ます 。 上 の 例 を プロ グラ ム 的 な 流れ で 表す と 、 


. 買物 を し て 釣 銭 を も ら う 

。 for 日 数 三 1 to 365 

ビン に 1 円 玉 を 入れ る 

if ビン が いっ ぱい then break (終わ り ) 
買物 を し て 釣 銭 を も ら う 
、next (2. に 戻る ) 

。 終わ り 


ココ の ) 〇 必 (OO トト いい ロビ 
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の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 


LO) は mm も ja。 さ 

29 a=9 

3 の b=9 

4 for i=i to 190 

59 PDY*m も 35 

69 input " Number = ":b 
79 8a=8a+b 

89 if a>=45 then [ 
96 print "a >= 45" 
109 break 

119 } 

129 本 設定 電 ak で 輝 が テ 
136 print "More" 

149 next 
159 end 


制御 重 造 が 多重 の 入れ 子 (ネス ト ) に な っ て いる と き は 、break 文 は 、 


抜け 出し ます 。 


19 int 1,J,k 


20 str sg=">>>>>)>>Brealk く くく くく < くく" 

30 for = の to 2 

49 for Jj= の to 2 

56 for k= の to 2 

609 if k=1 theri break 
79 1 の 5 縛 える を る る る する る る る る るる る る る る 
809 mext 

99 print ss 

160 PDTint "ネネ ネネ ネネ ネ 本 床 ネ ネ ネ " ュ ) 
1109 next 

129 DFint ネネ ネリ ュ エ 

139 next 

149 end 


・continue 文 


1.5 制御 の 流れ 


1 つ 上 の レベ ル の ネス ト へ 


「 読 破 す る まで 、 毎 晩 『 三 国 志 』 を 読む 。 し か し 、 酒 を 飲ん だ 日 は 読ま ず に 眠る 」 
continue 文 は 、 for 文 や while 文 、repeat 文 の ルー プ を 強制 的 に 次 の サイ クル へ 進め ます 。 上 の 例 


を プロ グラ ム 的 な 流れ で 表す と 、 


1.『 三 国 志 』 を 買っ て くる 

2. 毎晩 読む 

3. while 読み 終 と ない (読み 終え た ら 終わ り ) 

4. f 酒 を 飲ん だ then continue (3. へ 戻る ) 
5 毎晩 読む 

6. endwhile (3. へ 戻る ) 

7. 終わ り 


の よう に な り ま す (これ は プロ グラ ム で は あり ませ ん )。 
繰り 返し て 数 値 を 入力 する と き の エ ラー 処理 な ど に 利用 で きま す 。 
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19 int a,b 

29 b= の 9 

3 の repeat 

4 の a= の 9 

59 input "Enter(end=9)> "ia 

6 の 9 if a>1999 then { 

7 の print "Error!! Too 1arge("iai")" 
89 continue 

99 } 


199 b=b+a 

119 unti1] a=9 

129 print "Answer : "jb 
139 end 


1.6 準備 作業 その 2 


同じ デー タ 型 を も つ 複 数 個 の デー タ の 集まり を 、 配 列 と いい ます 。 マ ンション を 例 に 配列 の 考え 方 
を 説明 し ます 。 


た と えば 、 上 の よう に 101 号 室 か ら 105 号 室 ま で 5 部屋 が ある も の と し ます 。 各部 屋 に は いろ いろ な 
家族 構成 が あり ます 。 


10199 3 人 家族 
102 号 ……4 人 家族 


この と き 、101 号 室 な どの 部 屋 番号 が 変数 、 中 に 住ん で いる 人 数 が デー タ (その 変数 の 値 ) に あたり 
まず 。 

各部 屋 は ひと つ ひ と つが 変数 だ と 考え られ ます が 、 す べ て 別 の 変数 に する と 、 デ ー タ の 入力 な ど が 
繁 雑 に な り ま す 。 


19 int a,b,c,d,e 
2 の 0 a=1 の : b=20 : c=3 の : q=4@ : e=569 


これ を 配列 と し て 宣言 すれ ば 、 デ ー タ の 入力 や 利用 が 単純 に な り ま す 。 


よび 1 双 も a(C4)=( の 。 29 。 3 の 5 40 。 50 3 : 3 も # 
29 for i=9 to 4 

36 お 3n も "ga(" 沼 37) 大 "ja は 3) 

49 next 


配列 変数 は 、x(0)、x(1) の よう に 、 変数 名 の 後に 括弧 で 番号 を くく っ た 形 で 用 いま す 。 括弧 内 の 番 
号 は 流 字 と いい 、 配列 の 中 の 何 番目 の 要素 で ある か を 表し ます 。 た と えば x (2) は 、x と いう 配列 変数 
の 0 番目 の 要素 か ら 数 えて 2 番目 の 要素 (x(0) 、x(1) 、x(2) と 数 を える) と いう 意味 に な り ま す 。 
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l.6 準備 作業 その 2 


プロ グラ ム 内 で 配列 を 使う に は 、「 変 数 の 宣言 」 と 同じ く あ ら か じ め dim 命令 に よる 「 配 列 の 宣言 」 
を 必ず 最初 に 行っ て くだ さい 。 配列 の 宣言 と は 、 配 列 変数 の 名 前 と 配列 に 入れ る デー タ の 型 と 個数 を 
決め て や る こと で 、 


dim 型 宣 言 変数 名 (添字 の 最大 値 


と いう 書式 で 行い ます 。 型 宣言 を 省略 する と int 型 に な る の は 、 変 数 の 場合 と 同様 で す 。dim 命令 
つい て は 、 第 4 章 で も 説明 し て あり ます の で 、 そ ちら も 参照 し て くだ さい 。 

添字 は 0 か ら 始 まる の で 、 配列 変数 が 持つ 要素 数 は dim 命令 で 指定 する 添字 士 1 に な り ま す 。 た と 
えば 、 dim a(5) と 宣言 する と 、 a(0) か ら a(5) ま で の 6 つの 配列 が 使え を る よう に な り ま す 。 添字 は メ 

モリ が 不足 し な ぃ 男 囲 まで と る こと が で き 、 0 か ら 65535 の 値 を 使う こと が で きま す 。 

数 値 (int, char,float) 型 の 配列 に つい て は 、 各 要素 で 扱え る 数 値 の 範囲 は デー タ の 型 に 応じ て 決 
まり ます が 、 文 字 (str) 型 は 各 要 素 で 扱え る 文字 列 の 長 さ を 文字 バッ ファ の サイ ズ に より 指定 で きま 
す 。 文字 バ ッ フ ァ の サイ ズ を 指定 し な い 場 合 は 3 2 文字 と 見 な され ます 。 こ れ よ り 短 い 文 字 列 し か 代 
入 さ れ な い 場 合 は 問題 あり ませ ん が 、 も っ と 長い 文字 列 が 代入 され る こと を 考え な けれ ば な ら な い 場 
合 は 次 の よう に し て 文字 バッ ファ の サイ ズ の 最大 値 (1 一 255) を 指定 し ます 。 


dim str a(10)[200] 
これ で 、 配列 の 要素 a(0) か ら a(10) に は それ ぞ れ 最大 200 文 字 ま で の 長 さ の 文字 列 を 代入 し て 使う 
こと が で きる よう に な り ま す 。 
次 に 、 先 ほど の マン ショ ン が 5 陸 建 て だ と する と 、 


1 階 に 5 部 屋 で 5 階 で 25 部 屋 に な り ま す 。 
1 階 101 一 105 号 室 
2 階 201 一 205 号 室 
5 階 501 一 505 号 室 


つづ きま. り 、 
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の よう に な り ま す 。 こ の よう な 形式 を 、 2 次 元 配 列 と いい ます 。 さ ら に 、 こ の マン ショ ン が 興 に る 部 
屋 が あれ ば 、 3 次 元 配列 に な り ま す 。 


複数 の 添字 を 使っ た 場合 、 配 列 は 添字 の 個数 に 応じ た 次 元 に な り ま す 。 
だ と えば 、 


dim gd(2,3) 


と いう 宜 言 で は 、 以 下 に 示す よう な 二 次 元 ( 縦 方 向 と 横 方 向 の 二 次 元 ) の 配列 が と られ ます 。 


| d(0.0) d(0.1) | d(0,2) d(0,3) | 


d(1.,0) d(1.1) d(1.2) d(1.3) 


d(2.0) | d(2,1) d(2,2) | d(2.3) 


dim y(2,3,4) 


の よう な 三次 元 の 配列 に つい て は 、 縦 方 向 と 横 方 向 に 奥行 き が 加わ っ た 直方 体 を イメ ー ジ し て くだ さ 
い 。 

この よう に 、 配列 の 次 元 は 、 い くつ 添字 を 指定 する か に よっ て 決ま り ま す 。 次 元 は 、 理論 的 に は 255 
次 元 ま で と れる こと に な っ て いま す が 、 実 際 に は プロ グラ ム の 1 行 の 長 さ で 指定 で き な い の で 、 も っ 
と 少な く な り ま す 。 

以下 に 、 い ろ い ろ な 配列 変数 の 例 を あげ ます 。 


dim char a(12)……… 整数 型 (char 型 ) の 配列 変数 (要素 の 数 13) 


dim str b(4) ……… ド … 文字 型 (str 型 ) の 配列 変数 (要素 の 数 5) 
dim str f(3.3) ……… 一 次 元 文字 型 (str 型 ) の 配列 変数 (要素 の 数 4X4 ニ 16) 
dim n(2.5.3) ………… 三次 元 整 数 型 (int 型 ) の 配列 変数 (要素 の 数 3X6x4 三 72) 
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1.7 汎用 的 な 部 品 を 作る 


1.7 汎用 的 な 部 品 を 作る 


プロ グラ ム は 、 大 き な プ ログ ラム に な れ ば な る ほど 、 わ か り に くく 、 ま た 作成 、 修 正 (デバ ッ グ ) 
も むず か し く な り ま す 。 こ の た め 、 プ ログ ラム を 小さ な 部 品 単位 で 作成 すれ ば 、 だ れ に で も わか りや 
すく 、 ま た 修正 (デバ ッ グ ) も 容易 な プロ グラ ミン グ が 可能 と な り ま す 。 こ の こと を モジ ュー ル 化 と 
いい ます 。 

X-BASIC で は 、 こ の 部 品 単位 の プロ グラ ム 作 成 を func 一 endfunc を 使っ て 関数 と し て 定義 で き 
各 過 の 人 全 つて VM ます 。 

func 一 endfunc を 使っ た X-BASIC の プロ グラ ム は 次 の よう に な り ま す 。 


変数 、 配 列 変数 の 家 言 


処理 ※2 グロ グラ 次 
end 
func 一 
) 関数 1 
endfunc 
func 一 
) 関数 2 
endfunc 


実際 の プロ グラ ム 例 を 示し ます 。 


19 /* 了 乗 を 求め ます ! ! 
2 7 ポメ オイ ジグ ロダ ララ 

39 int a 

49 float b 

59 input " 階 乗 を 求め た い 数 値 を 入力 し て くだ さい --->"ja 

69 b=faot(a ) /* func~endfunc で 定義 され た fact と いう 関数 に 引数 as を 渡し て 
呼び 出し ます 

79 DYinmt "=" 

89 print ai" の 随 乗 は ":b:" に な り ま す " 

99 end 


1 
ム 


119 /* fao も と いう 関数 を 定義 し ます 


“は ロー カル 変数 c に よる 再帰 呼び 出し を 使用 し て いま す 
ル 変 数 は その 使用 され る 関数 (func-endfunc で 定義 され た 関数 ) 内 で 有 


c て 人 
も し 、 メ イタ ラダ デ ロ グ ラム 中 で 宣言 《 使 用 れ た 変数 a き 、b を グロ ー バ ル 
有 ま 朗 と 呼び ます 


179 /* グロ ー バ ル 変 数 は func~endfunc で 定義 され た 関数 内 で 使用 で きま す が 、 
189 /* ロー カル 変数 は その 定義 され た 関数 内 で し か 使用 で きま せん 


290 funo float fact(ciint) 

219 if o=1 then print ci:return( 1) 

220 PDY さ mnt も es" まま "S 

239 /* 

246 /* return 命 令 に より 再帰 呼び 出し (faot 関 数 (自分 自身 ) に 引数 c を 間 し て 呼び 出 
し て いぬ ます) を 行っ て いま す 

259 /* 結果 と し て 、c*(c-1)*(o-2)*(c-3)*...*3*2*1 の 値 が 戻り 値 と し て return 命 令 に 
より 返さ れ ま す 


269 /* 
2709 return(fact(o-1 ) *o) 
289 endfuno 
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19  /* Tiny EDITTOR ted.bas 
29 sgtr fname[29] 

39 str buff[209] 

49 int fp, fo 

59 char CR=13, LEF=19 

69 /* 

7 の title( ) 

89 fninput( ) 

99 fp=cFfopen(fname,"o") 


199 edit( ) 

119 fo=fo1lose(fp) 
129 end 

139 /* 


149 funo title( ) 
159 str dummy 


169 c1s 

179 BE は pt も" 和 交 本科 所 エエ ゲイ タ で す 。" 

186 prin も "メモ な ど を 作成 する と き に お 使い くだ さい 。" 
199 print "な お 、 す で に 存在 する ファ イル 名 を 指定 し た と き は 、 無 条 " 
290 print "件 に その ファ イル の 内 容 を 削除 し て し まい ます 。" 
210 Print 

229 print " 何 か キ ー を 押し て くだ さい 『: 
239 dummy=inkey$ 

240 cl1s 

259 endfunc 

269 funo fninput( ) 

279 print "Tnput fi1e name >": 

280 1input fname 

299 endfunc 

399 funo edit( ) 

319 print "Tnput data(END = /)" : print 

320 Wh31Te bu <》2 "/" 

330 1input "> "jlbuff 

346 if buff <> "/" then { 

359 fwrites(buff,fp) 

369 fputo( CR, fp ) 

379 fputc(LF, fp) 

380 } 


390 endwhile 
499 endfuno 


1.8 プロ グラ ム の 保存 と 再生 


プロ グラ ム は 、 コ ンピュータ の メモ リ に 記 培 され ます 。 し か し 、 コ ンピュータ の 電源 が " 切 " (OFF) 
に な る と その プロ グラ ム は 消え て し まい ます 。 こ の た め 、 プ ログ ラム は ディ スク な どの 外部 記憶 装置 
に 一 旦 保 存 し て 、 必 要 が あれ ば 再生 し な けれ ば な り ま せん 

ここ で は プロ グラ ム を ディ スク に 保存 する 方 法 と 、 保 存 さ きれ た プロ グラ ム を 再生 する 方 法 を 説明 し 
ます 。 save、save@、load、load@、files 命令 を 使い ます 。 


1.8.1 プロ グラ ム の 保存 


プロ グラ ム を ディ スク に 保存 する こと を セー ブ (save) と いい ます 。 保 存する と き は 、 あ と で その 
プロ グラ ム が わか る よう に 名 前 (ファ イル 名 と いい ます ) を つけ ます 。 

プロ グラ ム を 入力 する と 、 コ ンピュータ の メモ リ に は 、 そ の 内 容 が 記憶 きれ て いま す 。 し か し 、 電 
源 を 切っ た り 、X-BASIC を 終了 させ る と 、 そ の プロ グラ ム は 消え て し まい ます 。 保存 する 必要 が あ 
る プロ グラ ム は 必ず セー プ し て くだ さい 。 

また 、 プ ログ ラム を 実行 する 前 に も ち 、 プ ログ ラム の 暴走 に 備 た て セー ブ プ し て お いた ほう が いい で し 
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1.8 プロ グラ ム の 保存 と 再生 


よう 。 ぁ 
それ で は セー プ ブ の 方 法 を 説明 し ます 。 
入力 待ち 状態 か ら 、 
save "ファ イル 名 " 同 


と 入力 し ます 。 
ファ イル 名 は 、 半 角 文 字 で 18 文 字 以 内 (た だ し 、 識 別 で きる の は 8 文字 以内 ) で 指定 し ます 。 た と 
えば 、 フ ァイル 名 を 「TEST」 と すれ ば 、 


save "TEST"|J| 


と な り ま す 。 こ の 例 で は 、 ド ライ ブ の 指定 を し て いま せん の で 、 自動 的 に X-BASIC を 起動 し た ディ 
スク に 保存 され ます 。 
ドラ イブ B に 保存 し た いと き は 、 フ ァイル 名 の 先頭 に 「B : 」 を つけ ます 。 


save “BB: TEST" 加 


ファ イル 名 に は 拡張 子 を つけ る こと が で きま す 。 フ ァイル 名 の あと に 「. 」 と それ に 続く 半角 文字 3 
文字 以内 で 指定 し ます 。 X-BASIC で 拡張 子 を 省略 し て セー ブ し た プロ グラ ム に は 、 自動 的 に 「. bas」 
と いう 抜 張子 が つき ます 。 

ファ イル 名 に つい て は 別冊 の 「Human68k ユー ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 

Save 命令 で は 、 プ ログ ラム を アス キー (テキ スト ファ イル ) 形式 で セー プ し ます 。 セ ー ブ さ れる 順 
序 は 、 行 番号 の 小さ い 順 に な り ま す 。 

「@」 オ プシ ョ ン を 指定 する と 、 行 番号 を 省略 し た 形 で プロ グラ ム が セー プ さ れ ま す 。 


save@ "B: TEST"|J| 
1.8.2 プロ グラ ム の 再生 


プロ グラ ム を ディ スク か ら 再 生 す る こと を ロー ド (load) と いい ます 。 

それ で は ロー ド の 方 法 を 説明 し ます 。 

すでに メモ リ に プロ グラ ム が ある 場合 は 、 ロ ー ド する こと に よっ て その プロ グラ ム は 消さ る れ ま す の 
で 、 注 意 し て くだ さい 。 入力 待ち 状態 か ら 、 


load "B: TEST" 


と 入力 し ます 。 

この 例 で は 、 ド ライ ブ B に ある 「TEST.bas」 と いう ファ イル 名 の プロ グラ ム を ロー ド し ます 。 

1oad 命令 も 6「@」 オプ ' シ ョ ン が 指定 で きま す 。 た だ し 「save@」 で セー ブ プ され た プロ グラ ム し か 使 
えま せん 。 

1oad@ 命 令 で は 、save@ 命 令 で セー ブ さ れ た プロ グラ ム に 任意 の 行 番号 が つけ れ ま す 。 

また 、 すでに メモ リ 上 に プロ グラ ム が ある と き に 、 load@ 命 令 で ロー ド さ れ た プロ グラ ム を 、 マー 

ジ (混合 、 追 加 する こと が で きま す 。 

た と えば 、 行 番号 10 一 100 の プロ グラ ム が メモ リ 上 に ある と き 、 ド ライ ブ B か ら 「TEST.bas」 と 
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いう 行 番号 が 省略 され た プロ グラ ム を 110 行 目 か ら ロ ー ド する と 次 の よう に な り ま す 。 


10 
20 


メモ リ 上 の プロ グラ ム 
90 


100 
load@ "B: TEST”.110 | 
list 

10 

20 


メモ リ 上 の プロ グラ ム 
90 


100 
110 

「TEST. bas」 が マー ジ さ れる 
200 


1.8.3 保存 し た ファ イル の 確認 


ディ スク に 保存 され て いる ファ イル の 一 覧 を 見 る た め に files 命令 が あり ます 。 
次 の よう に 入力 し て くだ さい 。 


files "Bi:" 


ドラ イブ B の ディ スク の ファ イル 一 覧 が 表示 され ます 。 ま た 、 フ ァ ン クシ ョ ン キ ー の IF 1 | キー を 
押し て も 同じ こと が で きま す 。 た だ し 、 こ の 場合 は 、 カ レン トド ライ ブ (現在 作業 中 の ドラ イブ ) の 
ディ スク の ファ イル 一 覧 が 表示 され ます 。 


Slag 52 
58 [が 使用 可能 で す 
B: Ms KS /* 6212 87/11/3 12: 胃 : 包 
"Bi: 半 KEY .SVS”  /* 712 87/ 呈 /15 12: 明 : 
"B: 判 SKCG SYS” 。 /* 294 87/11/3 12: 李 : 
"B: ギ ONFIG SYO 。 ば 委 225 87/12/22 16: 9:19 
-X "7/* 2682 88/ 虹 /14 12:M: 
.X ” 。 /* 2 の 4736 87/11/93 12: 李 : 
"B: ギ ICONDRTR ST 7 2 88/92/14 12: 本 : 朴 
を IP US う 。 な 88/92/11 98:59: 角 
”B: 判 NOTE US 2 2 87/ 的 /15 12: 叩 : 叫 
"B: ギ PHONE VS " 。 /* 132 李 87/ 的 /15 12: 本 : 盟 
?B: ギ RUTOEXEC .BRT”  /* /M2/14 12: MM 
:fSYS ”。 。 /Z* 一 -HIR-- 88/2/14 12: MM: 
"B: ギ BIN "7/* ーーDIR-- 88/2/14 12: 本 
”B: ギ BRSIC2 "7* ーー-IIR-- 88/ 史 /14 12: 李 : 9 
”B: 半 CE 。  /Z* 一 -DIR-- 88/2/14 12: 李 : 
"B: ギ TRHSH "。 /* ーー-DIR-- 88/2/14 12: 晴 : 李 
Ok ”B: ネ NELUDIR "7* ーー-DIR-- 88/2/14 12: M: 9 
| 
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コラ ム X-BASIC の いろ いろ な 起動 


1. コマ ンド モー ド か ら の 起動 


本 機 で は 、 初 期 設定 で は ビジ ュ ア ル シ ェ ル (デス クト ッ プ 画面 ) が 起動 する よう に な っ て いま す 。 
コン ピュ ー タ の 操作 に 慣れ し てき たら 、 も う ひ と つの 世界 、Human68k の コマ ンド モー ド か ら 欠 - 
BASIC を 起動 し て み ま し ょ う 。 

ビジ ュ ア ル シ ェ ル (デス クト ッ プ 画面 ) を な が め て みる と 、 タ ンク (戦車 ) の アイ コン が 見 えま す 。 
これ が 、Human68k の コマ ンド モー ド へ の 入口 で す 。 こ の 「COMMAND.X」 と いう アイ コン を 、 
マウ ス ・ ト ラッ クボ ポー ル で ポイ ント し て 、 左 ポ タン で グ プ ブル クリ ッ ク し て くだ さい 。 

し ば らく する と 、 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) が 消え て 、 


A> 
と いう 文字 (プロ ンプ ト ) が 表示 され 、 そ こ で カー ソル が 点 減 し て いる は ず で す 。 キ ー ボ ー ド か ら 、 
basic 


と 入力 し て (これ は 英 大 文字 で も か まい ませ ん ) リタ ー ン キー を 押し て くだ さい 。 X-BASIC が 起動 
し ます 。 
で は 、 区 -BASIC, を 終了 し まし ょ う 。 キーボー ド か ら 、 


system (|| は リタ ー ン キー の こと ) 


と 入力 し て くだ さい 。 ま た は ファ ンク ショ ン キ ー の | F10 | キー を 押し て か ら リ ター ン キ ー を 押し ます 。 
X-BASIC が 終了 し て 、Human68k の コマ ンド モー ド に 戻り ます 。 
コマ ンド モー ド に 戻っ た ら 、 今 度 は 、 


exit | 


と 入力 し 、 メ ッ セ ー ジ が 表示 され た ら 何 か キー を 押す か 、 マ ウス ・ ト ラッ クボ ー ル の ボタ ン を クリ ッ 
ク し て くだ さい 。 ビ ジュ アル シェ ル (デス クト ッ プ 画面 ) に 戻り ます 。 

Human68k の コマ ンド モー ド で は 、 いろ いろ な コマ ンド が 使え ます 。 また 、 シ ステ ム 起 動 時 に コマ 
ンド モー ド に な る よう に 、 環 境 を 設定 する こと も で きま す 。 詳細 は 、「Human68k ユー ザー ズ マ ニュ 
アル 」 を 参照 し て くだ さい 。 


2. プロ グラ ム の 自動 実行 
X-BASIC で は 、 起動 時 に 自動 約 に ファ ンク ショ ン キ ー な どの 初期 設定 を 行う プロ グラ ム を ロー ド 


し て 実行 する こと が で きま す 。 た だ し 、 こ れ ら の 各種 初期 設定 を 行っ た 後 、 こ の プロ グラ ム の リス ト 
は 自動 的 に メモ リ 上 か ら 消 えま す 。 
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コラ ム XX-BASIC の いろ いろ な 起動 


コマ ンド モー ド で プロ ンプ トト が 表示 され て いる と き 、 
basic test.bas 同 


と 入力 すれ ば 、X-BASIC の 起動 後 、 ア ログラム "test.bas” を ロー ド し て 実行 し ます 。 拡 張子 が ".bas” 
の と き に は 、 拡 張子 は 省略 で きま す 。 も し 、 同 じ デ ィ レ クト リ に "autorun.bas" と いう 名 前 の ブログ 
ラム が あれ ば 、 単 に 


basic 
と 入力 する だ け で 、X-BASIC の 起動 後 、 自 動 的 に プロ グラ ム "autorun.bas” を 実行 し ます 。 
一 般 に 、Human68k の コマ ンド モー ド か ら X-BASIC を 起動 する た め の 書 式 は 、 次 の よう に な り 
朱 対 。 
basic 〔【< ス イッ チ >] 〔〔【 く < ドラ イブ 名 >〕〔 ン * ス 名 >]< プ ログ ラム 名 >]〕]〕 


< ブロ グラ ム 名 > の 拡張 子 が ". bas" の と き 、 拡 張子 は 省略 で きま す 。 


3 、 起動 時 の スイ ッ チ 
Human68k の コマ ンド モー ド か ら X-BASIC を 起動 する と き に は 、 次 の スイ ッ チ を 指定 で きま 
吉 。 


グ f フリー エリ アサ イズ の 指定 
グ W 水平 画面 サイ ズ の 指定 
グ C コン フィ ギュ レー ショ ン フ ァイル の 指定 


次 節 で 説明 する コン フィ ギュ レー ショ ン フ ァイル の 中 で も 、 ノ / #f スイ ッ チ 、/W ス イッ チ と 同様 の 設 
年 が で きま す 。 
・/f スイ ッ チ 
例 : basic /f160 


X-BASIC で 使う フリ ー エ リア を キロ バイ ト (KB) 単位 で 指定 し ます 。 た だ し 、 こ の 指定 で 確保 き 
れる メモ リ は 、 プ ログ ラム (テキ スト ) と 変数 ・ 配 列 変数 な どの た め の エ リア で す 。FM 音源 の トラ 
ッ ク バ ッ フ ァ な ど 人 外部 関数 で 使う エリ ア や 、 チ ャ イル ド プ ロ セ ス 実 行 の た め の エ リア は 含ま れ ま せん 。 
・ グ w スイ ッ チ 

例 : basic /w64 


水平 画面 サイ ズ 、 つ まり 、 画 面 の 横幅 に 表示 で きる 文字 数 ( 桁 数 ) を 指定 し ます 。 指定 で きる の は 64 
か 96 で す 。 それ 以外 の 数 値 で は 、 エ ラー に な り ま す 。 
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4. オリ ジ ナ ル X-BASIC 


> と スズ イッチ 
グ c スイ ッ チ に つい て は 、 次 節 で 詳し く 説明 し ます 。 
これ ら の スイ ッ チ は 、 同 時 に 設定 する こと も で きま す 。 


例 : basic /w96 /f200 


4 オリ ジ ナ ル X-BASIC 


X-BASIC は 、 起 動 時 に スイ ッ チ を 指定 し な けれ ば 、X-BASIC 本 体 ("basic.x") と 同じ ディ レク 
トリ 内 の "basic.cnf" と いう ファ イル を 探し ます 。 こ れ は 言い 換え れ ば 、X-BASIC は 常に 、 


basic  /cbasic.cnf 


と いう スイ ッ チ を 指定 し て 趣 動 し て いる 、 と いう こと で す 。 "basic.cnf" に は 、X-BASIC を 使う 上 で 
の いろ いろ な 動作 環境 を 設定 し て あり ます 。 こ の よう な ファ イル を 、 一 般 に コン フィ ギュ レー ショ ン 
ファ イル と 呼び ます 。 コ ン フ ィ ギ ュ レ ーション ファ イル が な いと 、X-BASIC は 起動 し ませ ん 。 

あら か じ め 用 意 き され て いる "basic.cnf" の 内 容 は 次 の よう に な っ て いま す 。 


FREE 三 128 
WIDTH 64 
BEEP ー ON 
CAPS 三 OFF 
FUNC 三 AUDIO 
FUNC 三 GRAPH 
FUNC 三 MOUSE 
FUNC 三 MUSIC 
FUNC 三 SPRITE 
FUNC 三 STICK 
FUNC 三 IMAGE 


?ー" の 左側 は 、X-BASIC の コン フィ ギュ レー ショ ン フ ァイル の 中 で 通用 する コマ ンド と 考え て くだ 
さい 。"=" の 右側 は 、 コ マン ド に 与え る 引数 で す 。 
それ ぞ れ に つい て 、 説 明 し ます 。 


・FREE 


例 : FREE ー 160 


X-BASIC で 使う フリ ー エ リア を キロ バイ ト (KB) 単位 で 指定 し ます 。 た だ し 、 こ の 指定 で 確保 さ 
れる メモ リ は 、 プ ログ ラム (テキ スト ) と 変数 ・ 配 列 変数 な どの た め の エ リア で す 。FM 音源 の トラ 
ッ ク バ ッ プ ァ な ど 外 部 関数 で 使う エリ ア や 、 チ ャ イル ド プ ロ セ ス 実 行 の た め の エ リア は 含ま れ ま せ 
ん 。/E スイ ッ チ と 同じ も の で す 。 
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コラ ム  X-BASIC の いろ いろ な 起動 


・WIDTH 
例 : WIDTH = 95 
水平 画面 サイ ズ 、 つ まり 、 画 面 の 横幅 に 表示 で きる 文字 数 ( 桁 数 ) を 指定 し ます 。 指 定 で きる の は 
64 か 96 で す 。 そ れ 以 外 の 数 値 で は 、 エ ラー に な り ま す 。/w スイ ッ チ と 同じ も の で す 。 
・BEEP 
例 :・ BEEP = ON 


エラ ー の と き な ど に ビー プ 音 を 鳴ら すか どう か を 、ON また は OFF で 指定 し ます 。 


・CAPS 
例 : CAPS = OFF 
X-BASIC の 務 約 語 の 表示 方 法 を 指定 し ます 。 大 文字 で 表示 する に は ON、 小文字 で 表示 する に は 
OFF を 指定 し ます 。 
・FUNC 
例 : FUNC = SPRITE 


組み 込ま れる 外部 関数 を 指定 し ます 。 外 部 関数 は 、X-BASIC の 起動 時 に いっ し ょ に メモ リ に ロー 
ド さ れ 、 常 駐 す る 関数 の こと で す 。 X-BASIC で は 、 あ ら か じ め い くつ か の 外部 関数 を 用 意 し て いま 
す 。 拡張 子 は すべ て ”.fnc" と な っ て いま す 。 


AUDIO ……… パ ド … ADPCM 制御 の 関数 

GRAPH _……… グラ フィ ッ ク 制 御 の 関数 

MOUSE ……… マウ ス ・ ト ラッ クボ ー ル 制御 の 関数 
MUUSIG es FM 音源 制御 の 関数 

SPRITE ……… スプ ライ ト 制 御 の 関数 

STICK ………… ド ジョ イス ティ ッ ク 制 御 の 関数 
IMAGE ……… ド ツバ 画像 処理 制御 の 関数 


(IMAGE は 、 別 売 の 周辺 機器 カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 用 の 関数 で す ) 


これ ら の ファ イル は 、 コ ン フ ィ ギ ュ レ ーション ファ イル と 同じ ディ レク トリ に な けれ ば な り ませ ん 。 

グ c ス イッチ を 使え ば 、"basic.cnf" 以 外 の ファ イル を コン フィ ギュ レー ショ ン フ ァイル と し て 指定 
で きま す 。 これ に よっ て 、 必要 な 外部 関数 だ け を 組み 込ん だ 、 コ ン パ クト な X-BASIC を 作る こと が 
で きま 上 あ 

コン フィ ギュ レー ショ ン フ ァイル は 、 ユ ー ザ ー が 簡単 に 作成 で きる テキ スト ファ イル 形式 で す 。 

"basic.cnf" を 書き か えた り 、 新 た に コン フィ ギュ レー ショ ン フ ァイル を 作成 する と き に は 、 スク リ 
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6. BASTOC 


ー ン エディ タ ED を 使い ます 。 
Human68k の コマ ンド モー ド で プロ ンプ ト が 表示 され て いる と き に 、 


ed a:\basic2\basic.cnf 


と 入力 する と 、ED が 起動 し て 、"basic.cnf" を 読み 込み 、 修 正 で きる よう に な り ま す 。ED に つい て 
の 詳細 は 、「Human68k ユー ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


5 . 拡張 外部 関数 


X-BASIC は 、 い ろ い ろ な 制御 重 造 と 、 ロ ー カ ル 変 数 を 扱え る 関数 の 定義 に よっ て 、 行 番号 に 依存 
し な い プ ログ ラム を 作成 し や すく な っ て いま す 。 ロ ー カ ル 変 数 を 扱え る メリ ッ ト は 大 きく 、 作 成 し た 
関数 は 、 よ り 汎 用 性 の 高い も の に な り ま す 。 

頻繁 に 利用 する 関数 は 、 拡 張 外部 関数 と し て 、X-BASIC に 組み 込ん で お きた いと ころ で す 。 そ れ 
に は 、 別 売 の 「C Compiler PRO-68K」 に 付属 し て いる BASIC-C コン バー タ 「XBAStoC (以下 、 
BASTOC)」 を お 使い くだ さい 。 BASTOC を 使う た め に 、C 言語 や アセ モン ブリ 言語 の 知識 は 必要 あ 
り ませ ん 。X-BASIC で 作っ た 関数 を 、BASTOC が C 言 語 の ソー スプ ログ ラム に コン バー ト (変換 ) 
し そく ぐれ ます 。 

た だ し 、BASTOC で コン バー ト す る た め に 、 注 意 し な けれ ば な ら な いこ と や 、 制 限 さ れる 事柄 も 
あり ます 。 


6 . BASTOC 


X-BASIC は 、 そ の 制御 構造 や 関数 の 使い 方 な ど で 、C 言 語 に 近い 仕様 を も っ た BASIC で す 。 し 
か し 、BASIC と C 言 語 は も と も と の 設計 思想 が 大 きく 違っ て いま す 。 ま た 、BASTOC は 、 コ ン バ 
ー ト する 過程 で 独自 の 変数 な ど を 生成 し ます 。 そ の た め 、BASTOC を 使う 上 で 守ら な けれ ば な ら な 
い 制限 が 発生 し て し まい ます 。 詳細 は 、 別 売 の 「C Compiler PRO-68K」 同 梱 の マニ ュ ア ル を 参照 し 
て くだ さい 。 


・ 変 数 名 、 関 数 名 の 制限 
次 に 示す も の は 、 変 数 や 関数 の 名 前 と し て 使用 で きま せん 。 


先頭 が S で 6 桁 の 数 字 が 続く も の 例 : S012345 
先頭 が L で 6 桁 の 数 字 が 続く も の 例 : LO12345 


先頭 が b で は じ ま る も の 例 : b nanja 
外部 関数 の 名 前 と 同じ も の 例 : line 
・ 配 列 代 入 の 制限 


宣言 を し た あと で 代入 で き る 配列 変数 は 、 1 次 元 配 列 だ け で す 。 2 次 元 以 上 の 配列 変数 は 、 宣 言 時 
に 代入 (初期 化 ) し て くだ さい 。 


例 : 10 dim a(10,10) っ 。 10 dim a(10,10)= 人 (1,2.3,4.5.6,7) 
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コラ ム XX-BASIC の いろ いろ な 起動 


20 a 王 人 1.2.9.4.5.6。70 


・func--endfunc に 関す る 制限 
関数 の 引数 の 型 が int 型 の 場合 、float 型 の 数 値 を 直接 渡し て は いけ ませ ん 。 int 関数 で 変換 し て く 
だ さい 。 


例 : 10float a 10 float a 
20 a 三 123.456 20 a 三 123.456 
30 test(a) /* No good! つ 30 test(int(a) ) 
80 end 80 end 


90 func test(data:int) 90 func test(data:int) 


また 、 関 数 内 で ロー カル 変数 と し て 宣言 し た str 型 の 変数 は 、 戻 り 値 と し て 使う こと は で きま せん 。 
Str 型 の 変数 を 戻り 値 に する 場合 は 、 グ ロー バル 変数 を 使用 し て くだ さい 。 


例 : 10 str sa,sb 10 str sa,sb 
20 sb 三 test( 123) 20 sb=test( 123) 
80 end 80 end 
90 func str test(iiint) 90 func str test(iiint) 
100 str ss 100 str ss 
190 return(ss)/* No good! 180 sa 三 ss 
200 endfunc 190 return(sa) 


200 endfunc 


7 。 X-BASIC ver. 2 .00 に つい て 


X-BASIC ver.2.00 で は 、 注 動 小 数 点数 の 内 部 表現 と FM 音源 制御 の 外部 関数 が ver.1.00 と は 違 
っ だ も の に な っ て いま す 。 


・FM 音源 制御 の 外部 関数 に つい て 

FM 音源 制御 の 外部 関数 (ファ イル 名 : MUSIC.FNC) の 仕様 が 、ver.1.00 と ver.2.00 で は 異な り 
ます 。Yer.2 .00 で は 、FM 音源 を 利用 する た め の テ バイ ス ドラ イ バ (ファ イル 名 : OPMDRV.X) が 
必要 に な り ま す 。 こ の デバ イス ドラ イ バ は 、Human68k の 起動 妊 に 組み 込ま れ ます 。 

外部 関数 の 仕様 が 異な っ て いて も 、ver.1.00 と ver.2.00 の FM 音源 制御 に 関す る プロ グラ ミン グ 
方 法 は 変わ り ま せん 。 
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8. Human68k の 環境 設定 


・ 浮 動 小 数 点数 の 表現 に つい て 

ver.1 .00 で は 、 浮 動 小 数 点数 の 内 部 表現 に シャ ー プ フォ ー マ ッ ト を 使っ て いま す 。 これ は 、 ver.2.00 
で 採用 し て いる IEEE フォ ー マ ッ ト と 違い 、 仮 数 部 と 指数 部 の 配置 が 逆 に な っ て いま す 。 た だ し 、 表 
現 で きる 数 値 の 精度 は まっ た く 同 じ で す 。 

Human68k の 起動 時 に 、 浮 動 小 数 点 演算 の た め の デ バイ ス ド ラ イ バ が 組み 込ま れ ま す 。 この デバ イ 
ス ド ラ イ バ (ファ イル 名 : FLOAT2.X) は 、IEEE フォ ー マ ッ ト に よる 浮動 小数 点 演算 を 実行 し ま 
す 。 ま た 、 シ ャ ー プ フォ ー マ ッ ト の た め の デ バイ ス ド ラ イ バ (ファ イル 名 : FLOAT1.X) も 用 意 さ きれ 
て いま す 。 

ver.1.00 で プロ グラ ム を 実行 し て 作成 し た 、 浮 動 小数 点数 な どの 数 値 を 含む デー タフ ァイル は 、 
Human68k に “FLOAT2 .X” を 組み 込ん だ ver.2 .00 で は 扱う こと は で きま せん 。 プ ログ ラム を この 
ver.2 .00 で 再度 実行 し て ファ イル を 作り な お すか 、Human68k の 起動 時 に "FLOAT1.X" を 組み 込む 
よう に し て くだ さい 。 な お 、 別 売 の 「CCompiler PRO-68K」 を 使用 する 場合 は 、Human68k の 起 
動 時 に IEEE フォ ー マ ッ ト の デバ イス ドラ イ バ "FLOAT2 .X" を 組み 込ん で くだ さい 。 


8 . Human68k の 環境 設定 


X-BASIC の "basic.cnf" と 同じ よう に 、 Human68k に も "CONFIG.SYS" と いう シス テム 構築 用 
ファ イル (コン フィ ギュ レー ショ ン フ ァイル ) が あり ます 。"”OPMDRV.X" や "FLOAT2.X" な どの デ 
バイ ス ド ラ イ バ は 、 こ の ”CONFIG.SYS" の な か で 組み 込む こと を 指定 し ます 。 

あら か じ め 用 意 さ れ て いる "CONFIG.SYS” の 内 容 は 、 次 の よう に な っ て いま す 。 


FILES 三 15 

BUFFERS 20 

BELL 三 \SYS\BEEP.SYS 

DEVICE 三 \SYS\PRNDRV.SYS 

DEVICE 三 \SYS\PCMDRV.SYS 

DEVICE ー \SYS\ASK68K.SYS  B:\X68K M.DIC 日 :\X68K S.DIC 
DEVICE 三 \SYS\OPMDRV.X 

DEVICE 三 \SYS\FLOAT2 .X 

VERIFY 三 ON 


シス テム 構築 用 ファ イル は 、 ユ ー ザ ー が 簡単 に 作成 で きる テキ スト ファ イル 形式 で す 。"CONFIG. 
SYS" を 書き か える と き に は 、 ス クリ ー ン エディ タ ED を 使い ます 。 
Human68k の コマ ンド モー ド で プロ ンプ ト が 表示 され て いる と き に 、 


ed a:\CONFIG.SYS 


と 入力 する と 、ED が 起動 し て 、"CONFIG.SYS" を 読み 込み 、 修正 で きる よう に な り ま す 。 ED や デ 
バイ ス ド ラ イ バ に つい て の 詳細 は 「Human68k ユー ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 
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この 章 で は 、 主 に 外部 関数 に よっ て 実行 で き る 機能 に つい て 説明 し ます 。 

外部 関数 は 、 本 機 の 持つ いろ いろ な 機能 を X-BASIC か ら 利用 する た め の も の で す 。 外 部 関数 に よ 
っ て 本 機 の ほとん どの 機能 を 引き 出す こと が で きる 、 と いえ る で し ょ う 。 こ こ で は 、 次 の も の に つい 
て 詳し く 説明 し ます 。 


・ 画 面 制 御 (グラ フィ ッ ク 、 ス プラ イト ) 
・FM 音源 制御 

・ 音 声 サ ンプ ブリング (ADPCM) 

・ フ ァイル 操作 


ファ イル 操作 は すべ て 標準 関数 で 行い ます が 、 ファ イル に 対す る 考え 方 が X-BASIC の 特長 の 1 つ 
と な っ て いる た だ た め 、 こ の 章 で 詳し く 説 明 し ます 。 
その 他 に 、 や は り X-BASIC の 特長 と いえ る 次 の 機能 に つい て も 解説 し ます 。 
・ マ ウス 、 ジ ョ イス ティ ッ ク 制 御 
・ 文 字 列 操作 
・ 子 プロ セス 
2.1 画面 制御 
本 機 で 扱う 画面 に は 、 大 きく 分 け て 次 の 3 つが あり ます 。 
・ チ テキスト 
ッ グ ラブ フィ イッ ジ グ 
・ 抽 プ デ ダ イ キ 


画面 は 、 下 の 図 の よう な 優先 度 で 重なっ て いる と 考え て くだ さい 。 
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2.| 画面 制御 


グラ フィ ッ ク 画 面 と スプ ライ ト 画 面 に つい て は 、 こ の あと の 節 で 説明 し ます 。 

テキ スト 画面 は 、 文 字 を 表示 する 画面 で す 。 プ ログ ラム の 作成 や 編集 、 リ スト の 表示 を 行っ て いる 
の が 、 テ キス ト 画 面 で す 。 

テキ スト 画面 の 表示 サイ ズ は 、 基本 的 に は 64 桁 X32 行 と 96 桁 X32 行 の 2 種類 で す 。 で は 、 ダ イレ ク 
トモ ー ド で 、 テ キス ト 画 面 の 表示 桁 数 を 変え て み ま し ょ う 。 次 の よう に 入力 し て くだ さい 。 


screen 2,.0,1,.0 また は width 956 問 】 (この スク リー ン モ ー ド で は スプ ライ ト 画 面 は 使 
そま せん ) 


画面 が 消去 され 、 表 示さ れる 文字 の 大 き さ も 変わ っ た は ず で す 。 また 、 同 時 に グラ フィ ッ ク 画 面 と 
スプ ライ ト 画 面 も 消去 され て いま す 。 つ づい て 次 の よう に 入力 し ます 。 


screen 1,0,1,0 [| また は width 64 


これ を 交互 に 繰り 返し て みて くだ さい 。 screen 命令 は 、 テキ スト 画面 を は じ め 次 節 で 説明 する グラ 
フィ ッ ク 画 面 や スプ ライ ト 画 面 の すべ て の スク リー ン モ ー ド を 決め る と き に 使い ます 。width 命令 
は 、 テ キス ト 画 面 の 表示 桁 数 を 変え る と き に 使い ます 。 

で は 次 に 、 表 示 行 数 を 変え た て み ま す 。 表 示 行 数 と いう の は 、 テ キス ト 画 面 が スク ロー ル す る 行 数 の 
こと で す 。 次 の よう 諾 入力 し で 《 だ きい 。 


console 0.10.1 | 

ここ で ファ イル 一 覧 を 表示 し て み ま し ょ う 。 次 の よう に 入力 し ます 。 
files (また は [F 1 | キー を 押し ます ) 

画面 の 上 10 行 だ け を 使っ て 文字 が スク ロー ル し ます 。 で は 、 元 に 戻し ます 。 
console 0,31.1 | 記 | 


console 命令 は 、 テ キス ト 画 面 の スク ロー ル 行 数 (表示 行 数 ) を 変え る と き に 使い ます 。 ま た 、 画 面 
最 下 行 の ファ ンク ショ ン キ ー 表 示 の 有無 も 、console 命令 で 行い ます 。 詳 し く は 第 4 章 を 参照 し て くだ 
さい 。 


2。.]1。1 が ラウ ャ カク 


グラ フィ ッ ク 画 面 は 、 点 や 線 、 絵 を 描く 画面 で す 。 表 示 は すべ て ドッ ト 単 位 で 行わ れ 、 ド ッ ト の 位 
置 は X 座 標 と Y 座 標 で 表し ます 。 
本 機 の グラ フィ ッ ク 画 面 に は 、 次 の 図 の よう に 、 論 理 画面 、 実 画面 、 表 示 画 面 が あり ます 。 


CCSSSoSSSOoooooo 
くつ の ^④・ 
SCsocoo 
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論理 画面 
論理 画面 は 、X-BASIC の グラ フィ ッ ク 関 数 で 、X、Y 座標 と し て 引数 に 指定 で きる 画面 男 囲 ( 座 
標 系 ) で す 。 指 定 で きる 範囲 は 次 の と お り で す 。 


座標 ……ー82.768 か ら 32.767 ま で 
Y 座 標 …… 一 32,768 か ら 32,767 ま で 


・ 実 画面 

実 画面 は 、 実際 に グラ フィ ッ ク を 書き 込む こと の で きる 範囲 で す 。 実 画面 サイ ズ に は 、512X512 ド 
ッ ト と 1024X1024 ド ッ ト の 2 つが あり ます 。 ま た 、 実 画面 サイ ズ と 色 モ ー ド (最大 表示 色 ) に よっ 
て 、 設 定 で きる グラ フィ ッ ク ペ ー ジ 数 (最大 4 ページ ) が 変わ り ま す 。 


・ 表 示 画 面 
表示 画面 は 、 実 画面 の 中 の 実際 に 表示 され て いる 男 囲 で す 。 表 示 画 面 サ イズ に は 、 次 の も の が あり 
ます 。 


256X256 ド ッ ト 
512X512 ド ッ ト 
768X512 ド ッ ト 


で は 、 表 示 画 面 サイ ズ や 実 画面 サイ ズ な ど (スク リー ン モ ー ド ) を 変え て み ま し ょ う 。 次 の よう に 
入力 し て くだ さい 。 た だ し 、 グラ フィ ッ ク RAM を RAM ディ スク な ど で 使 用 し て いる 場合 は 、 その 
デー タ を フロ ッ ピ ー デ ィ ス ク や ハー ド デ ィ スク な ど に セー ブ し て お いて くだ さい 。 以降 の screen 命 
令 を 実行 する と グラ フィ ッ ク RAM は 初期 化 さ きれ ま す 。 


screen 2,0,1,1 


スク リー ン モ ー ド は 次 の よう に 設定 され ます (この モー ド で は スプ ライ ト 画 面 は 使 と を ませ ん )。 


表示 画面 サイ ズ ……… の …… の 768X512 ド ッ ト 
色 モ ー ド (最大 表示 色 ) ……………16 色 (65536 色 の 中 か ら ド ッ ト 単 位 で 指定 ) 
グラ フィ ッ ク ペ ー ジ 数 ………………1 (グラ フィ ッ ク ペ ー ジ 0 ) 


まだ た 、 グ ラフ ィ ッ ク 画 面 の 初期 化 も 同時 に 行い ます 。 で は 、 別 の スク リー ン モ ー ド を 設定 し て み ま 
し よう 。 次 の よう だ 大 放し ます 。 


screen 1,1,1,1 同 


スク リー ン モ ー ド は 次 の よう に 設定 され ます 。 


表示 画面 サイ ズ …………… ーー512X512 ド ッ ト 

実 画面 サイ ズ ………… の ir の …@ の 512X512 ド ッ ト 

色 モ ー ド (最大 表示 色 ) ……………16 色 (65536 色 の 中 か ら ド ッ ト 単 位 で 指定 ) 
グラ フォ ッ ク ペ ー ジ 数 …………………4 人 ラ フィ ッ ク ペ ー ジ 9ー3) 
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また 、 次 の よう に 入力 する と 、65536 色 同時 発色 の グラ フィ ッ ク 画 面 が 使え ます 。 


screen 1,3,1,1 | 


スク リー ン モ ー ド は 次 の よう に 設定 され ます 。 


表示 画面 サイ ズー……ー………… ド 512X512 ド ッ ト 
実 画 男 サ イ mm の emme………512X512 ド ッ ト 

色 モ ー ド (最大 表示 色 ) ………… バ 65536 色 

グラ ラ ィ イッ ヴ ペー ジ 数 omevs 1 (グラ フィ ッ タ ペー ジ 0) 


この よう に screen 命令 の パラ メー タ を 変え ん る だ け で 、 い ろ い ろ な スク リー ン モ ー ド を 設定 で きま 
す 。 グラフィック 関数 を 使う と き に は 、 必 ず ス クリ ー ン モー ド を 設定 する よう に し て くだ さい 。 

実際 に 実 画面 の 中 で グラ フィ ッ ク を 描く こと の で きる 範囲 を 、 ク リッ ピン グ エ リ ア と いい ます 。 
screen 命令 を 実行 する と 、 ク リッ ピン グ エ リ ア は 表示 画面 と 同じ 大 き ほ さ に な り ま す (この と き の 実 画 
面 に お ける 表示 画面 の 左上 座標 は (0.00 に な り ま す )。 ク リッ ピン グ エ リ ア を 実 画面 の 大 き さ に まで 
広げ て お け ば 、 表 示 画 面 サイ ズ よ り も 大 き な 絵 な ど を 描く こと が で きま す 。 で は 、 次 の よう に 入力 し 
て くだ きい 。 


screen 2.0.1,1 回 | 
window 0,0,1023,1023 | 


これ で 、 実 画面 いっ ぱい に グラ フィ ッ ク を 描く こと が で きま す 。window 関数 は 、 ク リッ ピン グ エ 
リア を 指定 する 関数 で す 。 

クリ ッ ピ ング エリ ア が 表示 画面 より 大 きい と き は 、 表 示 画 面 を 移動 し て 実 画面 の 別 の 部 分 を 見 る こ 
と が で きま す 。 次 の プロ グラ ム を 実行 し て み ま し ょ う 。 


19 str ag 

29 soreen の ,3,1,1 

39 window(9,9,511,511 ) 
49 apage( の ) 

59 vpage(1) 

69 home( の 9,128,128) 

79 fi11(140,1409,359,359,39) 
89 waiting( ) 

99 home(9,9,9) 
199 waiting( ) 

119 home( の ,9,256) 
129 waiting( ) 

139 home( の 9,256,9) 

149 vaiting( ) 

159 home( の 9,256,256) 

169 naiting( ) 

1790 home(9,128,128) 

189 waiting( ) 

199 width 96 
299 end 
210 funo waiting( ) 
229 1ocate 9 の ,9 
239 print "push SPACE key" 
249 a=inkey$ 
259 endfunc 


複数 の グラ フィ ッ ク ペ ー ジ が ある スク リー ン モ ー ド の と まき 、 実際 に グラ フィ ッ ク を 描く ペー ジ ( ア 
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クティ プペ ー ジ ) を 指定 する の が 、40 行 の apage 関数 で す 。 ま た 、 実 際 に 表示 され る ペー ジ を 指定 す 
る の が 、 50 行 の vpage 関数 で す 。 vpage 関数 の 指定 に よっ て は 、 複数 の ペー ジ を 重ね て 表示 させ る こ 
と も で きま す 。 こ の と き 、 グ ラフ ィ ッ ク ペ ー ジ 0 が 一 番 上 に 表示 され ます 。 こ の 表示 の 優先 順位 は 、 
次 の よう に な っ て いま す 。 


高 て っ 低 
グラ フィ ッ ク タク ペ ー ジ 0 グラ フォ ッ ク ペ ー ジ 1 グラ ウラ フィック ペ ー ジ 2. グラ フィ ッ タ ペー ジ 3 


表示 画面 の 移動 に は home 関数 を 使い ます 。 こ の プロ グラ ム で は 、 実 画面 の ほぼ 中 央 に 四角 形 を 描 
き 、home 関数 で 表示 画面 を 次 の 図 の よう に (①ー⑥) 移動 し て いま す 。 


グラ フィ ッ ク は 、 一 般 に 次 の 手順 で 使用 し ます 。 


1 スク リー ン モ ー ド (表示 画面 サイ ズ や 実 画面 サイ ズ 及 び 色 モー ド な ど ) を 計 
(screen) 

クリ ッ ピ ング エリ ア を 設定 する (window) 

アク ティ ブ ペ ー ジ を 決め る (apage) 

グラ フィ ッ ク 画 面 を 表示 する (vpage) 

グラ フィ ッ ク を 描く 

表示 画面 (クリ ッ ピ ング エリ ア ) を 移動 する (home) 


する 


四 


の > Q1 必 CO 5 


また 、 グ ラフ ィ ッ ク 画 面 の 実 画面 内 の 任意 の 領域 の グラ フィ ッ ク RAM デー タ を 配列 に 読み 込ん だ 
り 、 逆 に 配列 の デー タ を グラ フィ ッ ク RAM に 書き 込ん だ りす る 関数 (get、put) も あり ます 。 


2。】1、2 所 プラ イト 


ゲー ム プ ログ ラム で は 、 い ろ い ろ な 形 の キャ ラク タ が 画面 の 中 を 動き 回 っ て いま す 。 こ れ と 同様 の 
こと が X-BASIC で 実現 で きま す 。 

スプ ライ ト 画 面 は 、 ス プラ イト や バッ ク グ ラウ ンド を 表示 する た め の も の で す 。 ス プラ イト 画面 で 
は 、16X16 ド ッ ト で 作成 し た スプ ライ ト の パタ ー ン を 1 つの キャ ラク タタ と し て 自由 に 動か すこ と が で 
きま す 。 

グラ フィ ッ ク 画 面 が 複数 の グラ フィ ッ ク ペ ー ジ を 持っ て いた よう に 、 ス プラ イト 画面 に も 複数 の ペ 
ー ジ が あり ます 。 こ れ を プレ ー ン と いい 、 最 大 128 面 (プレ ー ン 0 一 127) まで 使う こと が で きま す 。 
各 プ レー ン に は 、 1 つ ず つ ス プラ イト の パタ ー ン を 表示 で きま す 。 ま た 、 プ レー ン の 番号 が 小さ い ほ 
ど 、 表 示 優 先 順位 が 高く な り ま す 。 つ まり 、 プ レー ン の 番号 が 違う スプ ライ ト の パタ ー ン が 重なっ た 
と き に 、 プ レー ン の 番号 の 小さ い 方 が 優先 的 に 上 に 重なっ た よう に 表示 され ます 。 ま た 、 ス プラ イト 
と バッ ク グ ラウ ンド の 表示 優先 順位 も 変更 で きま す 。 
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スプ ライ ト や あと で 説明 する バッ ク グ ラウ ンド の パタ ー ン は 、 そ の ノ パ ター ン に 対し て パレ ッ ト プ ブロ 
ッ ク (1 一 15) が 割り あて られ ます 。 ま た 、 そ の パタ ー ン の ドッ ト に 対し て 、 割 りあ て られ だ た パレ ッ 
トブ ロッ ク の 中 か ら 16 色 の パパ レッ ト を 選択 し て 設定 で きま す 。 こ の 16 色 の パレ ッ ト に は 、65536 色 の 中 
か ら 任 意 の 色 を 割り あて られ ます 。 

定義 で きる スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン の 最大 数 は 、 あ と に 説明 する バッ ク グ ラウ ン 
ド (テキ スト ペー ジ ) の 使用 状況 に よっ て 変わ り ま す 。 バ ッ ク グ ラウ ンド (テキ スト ペー ジ ) を 2 面 
と も 使っ て いる と き は 、 16X16 ド ッ ト の パタ ー ン は 最大 128 個 まで 定義 で きま す 。 また 、 バッ ク グ ラウ 
ンド (テキ スト ペー ジ ) を まっ た く 使 っ て いな けれ ば 、16X16 ド ッ ト の パタ ー ン は 最大 256 個 まで 定義 
で きま す 。 ス プラ イト や バッ ク グ ラウ ンド の パタ ー ン は 水平 ある い は 垂直 反転 が で きま す 。 

スプ ライ ト は 、 表 示 画 面 サ イズ が 256X256 ド ッ ト か 512X512 ド ッ ト の と き に 表示 で きま す 。 スプ ラ 


イト を 表示 で きる 範囲 は 、 次 の 図 の と お り で す 。 
レン 
ング ss 表示 画面 
用 


(0、0) ま 志 は (一 6、 一 169 


グ / 
1024 や 、 


ドッ ト (527、527) ま た は (511、511) 
〔(271、271) ま た は (255、255) 


1024 ド ッ ト (1023、1023) ま た は (1007、1007) 


バッ ク グ ラウ ンド は 、 プ レー ン と は 別に 最大 2 面 ま で 表示 で きま す 。 バ パック グラ ウン ド の 特長 は 、 
テキ スト ペー ジ 1 面 に 最大 4096 個 (64X64 個 ) の パパ ターン を 定義 し て 、 こ の テキ スト ペー ジ を それ ぞ 
れ の バッ ク グ ラウ ンド ぃ 割り あて 、 そ の バッ ク グ ラウ ンド を 自由 に スク ロー ル し て 表示 で きる 点 で す 。 
バッ ク グ ラウ ンド は 、 表示 画面 サイ ズ が 256X256 ド ッ ト の と き 2 面 、 512X512 ド ッ ト の と き 1 面 ま 
で 表示 で きま す 。 バック グラ ウン ド を 表示 で きる 範囲 は 、 次 の 図 の と お り で す 。 

(0.0) 


ング 0 両面 


(1023、|1023) ま た は (511、511) 
バッ ク グ ラウ ンド の テキ スト ペー ジ に 使用 する パタ ー ン サイ ズ や バッ ク グ ラウ ンド の サイ ズ も 、 表 
示 画 面 サ イズ に よっ て 変わ り ま す 。 


表示 画面 サイ ズ パタ ー ン サイ ズ バッ ク グ ラウ ンド サイ ズ 
256X256 ド ッ ト 8x8 ド ッ ト 512X512 ド ッ ト 
512X512 ド ッ ト 16X16 ド ッ ト 1024X1024 ド ッ ト 


スプ ライ ト は 、 一 般 に 次 の 手順 で 使用 し ます 。 
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スク リー ン モ ー ド (768X512 以 外 の 表示 画面 サイ ズ な ど ) を 設定 する (screen) 
スプ ライ ト 画 面 や パタ ー ン を 初期 化す る (sp init、sp clr) 

スプ ライ ト の パタ ー ン を 定義 する (sp def 

パレ ッ ト ブ ロッ ク や パレ ッ ト を 定義 する (sp color) 

表示 する プレ ー ン を 決め る (sp on、sp off) 

スプ ライ ト 画 面 を 表示 する (sp disp) 

スプ ライ トノ パタ ー ン を 動か す (sp move、sp set) 


つの) の 必 ( トト OO ビ 


また 、 ス プラ イト の 状態 を 読み 出す 関数 と し て sp stat 関数 、 ス プラ イト の パタ ー ン の デー タ を 読 
み 出 す 関数 と し て sp pat 関数 が あり ます 。 
3 、 4 は 、 付 属 の スプ ライ ト エ ディ タ を 使っ て 定義 する こと も で きま す 。 


バッ ク グ ラウ ンド は 、 一 般 に 次 の 手順 で 使用 し ます 。 


スク リー ン モ ー ド (768X512 以 外 の 表示 画面 サイ ズ な ど ) を 設定 する (screen) 

スプ ライ ト 画 面 や パタ ー ン を 初期 化す る (sp init、sp clr) 

バッ ク グ ラウ ンド の パタ ー ン を 定義 する (sp def 

パレ ッ ト プ ブロ ッ ク や パレ ッ ト を 定義 する (sp color) 

テキ スト ペー ジ に パタ ー ン を 設定 する (bg fil、bg put) 

スプ ライ ト 画 面 を 表示 する (sp disp) 

テキ スト ペー ジ を バッ ク グ ラウ ンド に 割り あて 、 そ の バッ ク グ ラウ ンド を 表示 する (bg_ 
set) 

8 バッ ク グ ラウ ンド を 動か す (bg scroll) 


コー の) 〇 心 CO トト や 己 


また 、 バ ッ ク グ ラウ ンド の 状態 を 読み 出す 関数 と し て 、bg stat 関数 、 テ キス トペ ー ジ の 状態 を 読 
み 出 す 関 数 と し て bg get 関数 が あり ます 。 バ ッ ク グ ラウ ンド の パタ ー ン の デー タ を 読み 出す 関数 と 
し て sp pat 関 数 が あり ます 。 


次 の プロ グラ ム で は 、 ス プラ イト の パタ ー ン を 2 個 、 バ ッ ク グ ラウ ンド の パタ ー ン を 2 個 定 義 し て 
いま す 。 バ ッ ク グ ラウ ンド を 2 面 共 ス クロ ー ル させ な が ら 、 画 面 の 中 を 2 個 の スプ ライ ト が 動き ます 。 
画面 の 端 に きた と ころ で 、 ス プラ イト は 反転 し ます 。 


19 /* sprite gample 

2 の 9 int ji,J)m,di 1,y1。x2,y2。x3,Y3」y4 

39 ohar po,pb,vr,vr_s,vr_ s1,hr,hr s,hr sg1,cd 
49 fl1oat f,f1 

59 /* define sprite-pattern 

69 dim char SP9 の (255)={ 


7 の の の 。 の 。 の 。 の 0, の ひ 。 の @。 の 」 の 9。 0。 の 9。 9 の 。 の 0 の 。 9。 9 の 。 
86 9, 0, の , の , 9, の 9, の , の , 9, 9, 9, の , の , 9, 9, 9。, 
99 0。 の 。 9.11.11。 の 。 の 。 @⑨. 90, @⑳,。 90。 の 。 の, の 。 の ,。 9。 
199 0。 の 。 9 ま 1 す 31 。 の 。 の 。 9。 0。 11 。 9 の 9。 9。 の 。 9。 
119 90, の , の ,11,11,」11,19, 9, 9 の , @, 9,11,16, の, 9, 0, 
1209 3 DU 2 2 の 。 。 2。 る 。 25 。 3。 3。 の 。 9。 
136 2 35 95 3) -9。 お 。 35 8。 3 き ,。 すき 。S き 。 の 。 
149 2 5 114011440。 8 3,。 3。 83.1H519 。 3 8。 3, 
159 12 5 ませ すま.40。 き 、 3。 3。 3 EL 1 の 9,。 8, 3 38。 
166 人 の 2 2。 2 る > 3。 き 。 9。 は 3 8。 83。 3。 3。 の 。 
179 13 ょ 133 11.11。 2。 2。 2。 2, 2。 25 3 3。。8。9, の 
189 の 。 の 9。 の 1 11.11。19。 0 の 。 の 0。 9 の 。 0。11。19,。 9, 9。 9, 
199 の 。 の 。 ゆ 。 10 せ 1 41。 の 。 0。 の 。 の ひ ,。 9.11。 の 9 の, の, の 9 の 。 9, 
299 0,。 9, の ,11,11, 9 の, 9。 9。 の 9, 9 の , の,。 9 の 。 の , 9, の , 9, 
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9 9, 9, 9 9 9, @, の, の:。 9, 9, 9 9 9 , の!。 の, 
の 。 の 。 の 。 0。 の 。 の 9。 の 9。 の , の ひ 。 9。 の 0。 の 。 の 。 9,。 ⑨。 @ 
) 
dim char SP1(255) ={ 
の 。 の 。 0。 の 。 9.14。 の 。 @。 の ,。 の 。14。 O。 の. 0。 の 。 ⑳。 
2) 12 12。 0。 の 14.。 の 0。 の 14。 の 。 の HH2.12。12。 @。 
12。 13。 3.13 2。 の 9。14。 0。 の 014。 の の, まま 。13. 3 3 ょ も 2。 
3.13.。 8 は 3 13 12。 の 14 は 4。 0。12.13.13。 8.13。13。 
8 な 由 お 8 09 な 395 9。 7。 0 US US 853 。 8 3.。 
3 は 肖 3。 尼 13 3 313。 5 5。T3O13 33 は S.b8。 19 3。 
まる 9 ま 9 US。 Ss13。 9 の ) 5。U95。。 人 き 。 出 3.13。 97413) 88 
3 3 よき 。 9 びき 9519。 5。 5.03。 必 3 ます 8』 9 148.13』 も 3。 
13.13.13.13,。 9.13。13,。 5。 5.19.E83。 9.13.13.13.19。 
届き 。 93 3 な 間 95 5。 53。 届 3343。 913.19512。 
2 衝 き ま き 3 で は きま 3y 出さ 。 8) 38。 出 3: ゆ の 0S13 353. 12 。 
の 12.13.49 19.13。13。 4 す 。 4.13. 13 7433.13.13.412。 の 。 
の 2 ES 9 US は DS よき 。 2 20935 由 34 よ 3193183.12. 9, 
ひ の 。 の .12.13.13.13。 の 0 の, 6。 6, 9.13.13。13.12, の , の 。 
の の 241212。 の 。 0。 の 0。 9。 の 1 の. 1 る 1212 0。 の 。 
の の 」 よ 2。 ひ )、 9。 0, の 。 の 。 0。 の 0 の,。 の 。 @⑳⑩。 0512, の 。 の ひ 
1 
/* define baokground-pattern 
dim char BG9(63)={ 
0。 8。 9 の 。 8。 90, B, @。 8。 
8, の , の , 9 の, 9, 9, の, 9, 
9 の, の , の , 9 の, 9 の, 9, の @, 8, 
8。 の 。 の 0。 の 9。 9 の 。 9 の 。 90。 の , 
9。 の 0。 の 9,。 の 。 0, 9。 の 9 の 。 8。, 
8。 の 。 0。 の 。 の ,。 9 の 。 の 。 の, 
9 の, の , の, 9 の, の @, の, の, 8, 
8, 9 の , 8, 9, 8。 9, 8, 6 
1 
dim char BG1(63)=( 
9 の, 9, の, 9, 9@, の,。 の, 9, 
9,19, の ,19, 9,19, 9 の, 0, 
の 9。 9, 9, の, 9, 9,109, 0。 
の .19, の 9, の, 9 の, 9, の, 
9 の, の , の @, 9, 9, 9,19, 9, 
9,19, 9, 9, 9, 9, の , 9, 
9, の ,19, の,19, 9,19, 69, 
9 の, 9, の , の 9, 9, 9, の 9, 9 
} 
/* main */ 
screen 9,3,1,1 /* 表示 画面 サイ ズ 256*256 (768*512 以 外 を 指定 する ) 
sp_init( ) /* スプ ライ ト 画 面 の 初期 化 
Sp_clr( の ,255) /* スプ ライ ト パ タ ー ン の クリ ア (9~ー255 の パタ ー ン コー 
sp_disp( 1 ) /* スプ ライ ト 画 面 の 表示 (6 な ら 表 示せ ず 、1 な ら 表 示す 
sp_on(9,3) /* スプ ライ ト プ レ ー ン の 表示 (9~ て 127 の プレ ー ン 番号 ) 
/* set sprite-pattern & background-jpattern 
sp_def( の 9,SP の ,1 ) /* 16*16 dots 
sp_def(1,SP1,1) /* 16*16 dots 
sp_def( 8,BG9, 9) /* 8* 8 dots 
sp_def(9,BG1,0) /* 8* 8 dots 
sp_def(3,SP9 の ,1) /* 16*16 dots 
sp_def(4,SP1,1) /* 16*16 dots 
/* set palet-block 
Fow 1=2 to 3 
pb= ュ 
if i=2 ther r=289 の 1 の else r=-8999 


or = の も o 15 
pc=J 


randomize(r+p1 (1*109 ) *〕) 


Sp_color(po , hsyv(rnd( 
nex キ 

next 
/* set background 9 
bg_fi]11( の ,pat dat( の 9,9,1.,8) ) 
bg_set(9,9,1) 
/* get baokground 1 
bg_fi11(1,pat dat( の ,9,1,9) ) 
bg_set(1,1,1) 


)*192,rnd( )*32,31 )+1 , pb ) 
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929 /* set sprite-p]ane 9,1,2,3 & background 9 , 1 
939 ii=9:di=1:hr gs1=1:y2=8 
94 の while -1 


959 ュ 1= ュ +d ュ 

969 /* baokground scro11 

979 if x3=511 then x3= の 9 

989 if y3=511 then y3= の 

999 x3=x3+1 

1999 Y3=y3+1 

1 の 1 の bg_soro11(9,x3,y3) 

1929 bg_soro11(1,511-x3,511-y3 ) 

1939 /* move sprite 

1949 1f i<1 then hr_s= の :vr_s= の :hr sl1=1:vr sl=1l:di=1:y2=y2+8 
1959 1f 1>286 then hr s=1:vr gs=1:hr s1= の :vr s1=9:di=-1:y2=y2+8 
1969 f=(pi(2)*i) /288*2 

1979 f1=(pi( 2) *i ) /288*4 

1989 yl1=128-159*sin(f ) 

1999 y4=128-129*cos(f1 ) 

1199 1f y1 く < の then vr s=1:y1= の 

111 の if y4<9 then vr s1= の 

1120 if yl1>277 then vr s= の 9 

1139 if y4>247 then vr s1=1 

1149 if y2>271 then y2=9 

1159 /* プラ イオ リティ (sprite > background の > background1 ) 
1169 Sp_set( の ,1,y2,pat dat( の ,hr s,1,9) ,3) 

117 の 9 Sp_set(1, エ 。y1,pat_dat(vr_s, の ,1,1 ) , 3) 
1189 SD_set(2,288-i,272-y2,pat dat(9,hr s1,2,3),3) 
1199 Sp_set(3,288-i,248-y4,pat dat(vr s1,9,3,4) ,3) 
1299 endwhi1e 

1219 end 

1229 funo pat dat(vr,hr,pb, cd ) 

1239 /* vr = 垂直 反転 (9 な ら 反 転 し な い 、1 な ら 反 転 す る ) 
1249 /* hr = 水平 反転 (9 な ら 反 転 し な い 、1 な ら 反 転 す る ) 
1259 /* pb = パレ ッ ト プ ロッ ク (1~15 の 値 ) 
126 の 9 /* cd = パタ ー ン コー ド (9@~ て 255 の 値 ) 
127 の return(vr*32768+hr*16384+pb*256+cd ) 


128 の 9 endfuno 


@ ス プラ イト エディ タ の 起動 方 法 

スプ ライ ト エ ディ タ の 起動 方 法 と コマ ンド に つい て 説明 し ます 。 
スプ ライ ト エ ディ タ は 、 グ ラフ ィ ッ ク RAM を 使用 し ます 。 グ ラフ ィ ッ ク RAM を RAM ディ スク と 
し て 使用 し て いる と き は 、RAM ディ スク の デー タ を フロ ッ ピ ー デ ィ ス ク な ど に 退避 し て か ら 起 動 し 
て くだ さい 。 


・ 起動 
現在 メモ リ 上 に ある プロ グラ ム を 消去 し て よい か どう か 確認 し ます 。 よ けれ ば 、X-BASIC の 入力 
待ち 状態 の と き に 、 次 の よう に 入力 し て くだ さい 。 


load "ai:\ace\defsptool" 


スプ ライ ト エ ディ タ の プロ グラ ム が ロー ド さ れ ま す 。 こ の 場合 は 、 ド ライ ブ A の 「ACE」 と いう デ 
ィ レ クト リ に ある 「DEFSPTOOL.BAS」 を ロー ド し まし た 。 続い て 、 フ ァ ン クシ ョ ン キ ー の [F 5 | 
キー を 押す か 、「run」 と 入力 し て リタ ー ン キー を 押し て くだ さい 。 

し ば らく する と 画面 に 、 


説明 は 必要 で すか ? [Y プ N] 


42 


2.| 画面 制御 


と 表示 され ます 。 は じ め て 使う と き は 、 キー ボー ド か ら Y と 入力 し て くだ さい 。 ここ で N と 入力 する 
と 、 ス プラ イト エディ タ が 起動 し ます 。 ま た 、 説 明 を 読ん で も 、 説 明 の 表示 が 終わ る と 、 ス プラ イト 
エディ タ が 起動 し ます 。 


・ 起 動画 面 の 各部 の 名 称 と 機能 

層 滞 II SUMSNLU II 誠人 
| | に に た 1 es パタ ー ン 1「」 1 
| | 作成 エリ ア | 18.! 
| 
[ | パタ ー シ ・ 一 覧 14 11 | 
| | し ーー ニニ ニー ニー ゴト し コ 

| 人 】 較 ! 

| | | 1 メ | | 

ee BS | 

Me 剛 | | パレ ッ ト | 

| の 

メッ セー ジ エ リ ア L_ 」! 人 

| 人 3 あ お っ か IGR | 

MM 人 居 主 る 町 


1. パタ ー ン 一 覧 ( 諾 E) : 
ッ パ ター ン 番 号 0 一 127 に 定義 され て いる パタ ー ン を 表示 し ます 。 


2. カラ テー 作成 エ リア ( 諾 下 ) : 
ペン カラ ー の RGHBI 各 成 分 が 表示 され て いま す 。 RGBI 各 成 分 を 変更 し て カラ ー を 作成 し ます 。 


3. 作成 中 の パパ ター ン (中 央 上 ) : 
表示 画面 が 256 メ 256 の と き の 大 き さ で す 。 


4 オペ レー ショ ン メ ニュ ー (中 央 ) : 
マウ ス ・ ト ラッ クボ ー ル の 左 ボ タン で ダブ ルク リッ ク す る こと に より 各 機 能 を 実行 し ます 。 


5. カラ ー 作 成 エ リア (カラ ー 表 示 部 分 ) (中 央 下 ) : 
ペン カラ ー あ る い は 作成 中 の 色 が 表示 され ます 。 マ ウス ・ ト ラッ クボ ー ル の 左 ボ タン で ダブ ルク リ 
ッ ク す る と ペン カラ ー に 色 を 設定 し ます 。 


6. パタ ー ン 作成 エリ ア ( 話 上 ) : 

マウ ス ・ ト ラッ クボ ポール の 右 ボ タン を クリ ッ ク す る と その ドッ ト を セッ ト し ます 。 マ ウス ・ ト ラッ 
クボ ー ル の 左 ボ タン を クリ ッ ク す る と その ドッ ト を リセ ッ ト し ます 。 
7. パ レッ トブ ロッ ク 一 覧 (大 下 ) : 

マウ ス ・ ト ラッ クボ ー ル の 左 ボ タン で クリ ッ ク す る と パレ ッ ト ブ ロッ ク 及 び パ レット が 選択 され ま 
す 。 左側 の 白い 印 は 選択 きれ て いる パレ ッ ト ブ ロッ ク を 示し ます 。 


8. 現在 選択 され て いる パパ レッ トブ ロッ ク (大 端 上 ) : 
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マウ ス ・ ト ラッ クボ ー ル の 左 ボ タン で クリ ッ ク す る と パパ レッ ト が 選択 され ます 。 右側 の 白い 印 は ペ 
ジ カ ラ ー を お 示し ます 。 


ほとん どの 操作 は 、 マ ウス ・ ト ラッ クボ ポー ル の 左 ボ タン を クリ ッ ク す る こと で 実行 し ます 。 ま た 、 
スプ ライ ト は スプ ライ ト エ ディ タ 起 動 時 に は 初期 化し ませ ん 。 そ の た め 、 ス プラ イト の パパ ター ン や パ 
レッ ト を 定義 し て いな い 状 態 で スプ ライ ト エ ディ タ を 起動 する と パタ ー ン 及び パレ ッ ト プ ロッ ク 一 覧 
に は 意味 の な い ノ パタ ー ン や パレ ッ ト が 表示 され ます 。 init 及び clr 機能 で 初期 化し て くだ さい 。 


・ メ ニュ ー の 機能 
各 オ ペレ ーション は 、 す べ て マウ ス ・ ト ラッ クボ ー ル の 左 ポ タン に よる ダブ プル クリック で 実行 され 
ます 。 


つっ  : 作 成 中 の パタ ー ン を 1 ドッ ト 右 へ 移動 し ます 。 
ー : 作 成 中 の パタ ー ン を 1 ドッ ト 左 へ 移動 し ます 。 
1 : 作 成 中 の パタ ー ン を 1 ドッ ト 上 へ 移動 し ます 。 
! : 作 成 中 の パタ ー ン を 1 ドッ ト 下 へ 移動 し ます 。 
90 : 作 成 中 の パタ ー ン を 反 時 計 回 り に 90 度 回 転 し ます 。 
180 : 作 成 中 の パタ ー ン を 180 度 回 転 し ます 。 
1 ! : 作 成 中 の パタ ー ン を 上 下 反 転 し ます 。 
と つつ: 作成 中 の パタ ー ン を 左右 反転 し ます 。 
get : パ ター ン を 取り 込み ます 。 
put : パ ター ン を 定義 し ます 。 
fill : パ ター ン を 指定 され た 色 で 塗り つぶ し ます 。 
Save : ノ パパ ター ン ま た は パレ ッ ト を 保存 (セー ブ ) し ます 。 
palet : パ ター ン 一 覧 上 の パタ ー ン の パレ ッ ト プ ブロ ッ ク を 変更 し ます 。 
init : 全 パレ ッ ト を 初期 化し ます 。 
elr SS ペタ ダーン ジ を グリ ア し まず 。 
help : 説 明 を 表示 し ます 。 
end : ズ プラ イト エディ タ を 終了 し ます 。 


8。1、9 ペレ ゥ ッ ド た カラ ラー コー ド 


え -BASIC で は 、 表 示さ れる 文字 の 色 と グ ラフ ィ ッ ク 関 数 や スプ ライ ト 関 数 で ドッ ト 単 位 に 使用 さ 
れる 色 を パレ ッ ト コード で 設定 し ます 。 

また 、X-BASIC で は カラ ー コ ー ド と し て 0 65535 ま で の 値 を 指定 で きま す 。 

ここ で は 、 こ の パレ ッ ト コ ー ド と カラ ー コ ー ド の 関係 を 説明 し ます 。 

だ た と えば 、 グ ラフ ィ ッ ク 画 面 の スク リー ン モ ー ド が 、 ド ッ ト 単 位 に 65536 色 中 最大 16 色 まで 表示 で き 
る よう な 設定 に な っ て いた と し ます 。 こ の 場合 の パパ レット コー ド は 0 一 15 ま で の 値 を と る こと が で き 
ます 。 も ちろ ん 、 カ ラー コー ド は 0 一 65535 ま で の 値 を 指定 で きま す 。 つま り 、 そ の スク リー ン モ ー ド 
で 表示 で きる 最大 の 色 数 に 応じ て 指定 で きる パレ ッ ト コ ー ド の 範囲 が 決ま り 、 そ の 各 パ レッ トコ ー ド 
に 対し て 0 一 65535 の 範囲 で カラ ー コ ー ド が 割り ふら れる わけ で す 。 
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それ ぞ れ の 画面 に 応じ て 指定 で きる パレ ッ ト コ ー ド は 次 の よう に な り ま す 。 


テキ スト 画面 ……… ン パレ ッ ト は 4 つ (第 4 章 の color、color [ ] 命 令 を 参照 し て くだ きい 。) 
グラ フィ ッ ク 画 面 …… 色 モー ド (ドッ ト 単 位 の 最大 表示 色 ) 
16 色 。、…… ッ マ レッド ヨー ド は 0 一 15 
256 色 …… パパ レット コー ド は 0 一 255 
( 色 モ ー ド (ドッ ト 単 位 の 最大 表示 色 ) が 65536 色 の と き は パパ レッ トコ ー ド と カラ ー コ ー ド は 1 対 1 に 対 
応 し ます 。 第 4 章 の palet 関数 を 参照 し て くだ さい 。) 
スプ ライ ト 画 面 ……… パ ター ン 上 単位 の パパ レット ブロ ッ ク は 1 一 15 
ドッ ト 単 位 の パレ ッ ト コ ー ド は 0 一 15 
(スプ ライ ト や バッ ク グ ラウ ンド で 使わ れる パタ ー ン は 、 ノ パタ ー ン 単位 に 1 一 15 ま で の パパ レット ブロッ 
ク が まず 割り あて られ ます 。 さ ら に その パタ ー ン の ドッ ト 単 位 に 0 15 ま で の パレ ッ ト コ ー ド が 設定 
され ます 。 第 4 章 の sp color 関数 を 参照 し て くだ さい 。) 
つづ いて 任意 の 色 の カラ ー コ ー ド を 求め て み ま す 。 
文 -BASIC に は 、 カ ラー コー ド を 求め る 関数 と し て rgb 関数 、hsy 関数 が あり ます 。 
ご 承知 の よう に 光 の 三原 色 に は 、 青 の 成分 と 赤 の 成分 と 緑 の 成分 が あり 、 こ れ ら の 成分 の 組み 合わ 
せ で 、 い ろ い ろ な 色 が 表現 で きま す 。 


g( 緑 ) 


r( 赤 ) 
ここ で は 少し 暗い マゼンタ の カラ ー コ ー ド を 求め て み ま す 。 
上 図 を みて 、rgb 関数 を 使用 する と 、 

print rgb(25,0,25) 
それ で は 、 次 の プロ グラ ム を 入力 し て 実行 し て みて くだ さい 。 


19 /*#* rgb 
2 の int ai 
39 char ao,bo,oc 
49 screen 1,3,1,1 


59 apage( 9) 
69 Ypage(1) 
7 の input “ 赤 の 成分 を 入力 し て くだ さい (9@~31)--->":ac 
8 input “" 緑 の 成分 を 入力 し て くだ さい (9~31)--->":bo 
39 input " 青 の 成 分 を 入力 し て くだ さい (9~31)--->"ijcc 


199 ai=rgb( ac, bo, co ) +1 
119 fi11( の 9,9,109,199,ai ) 
129 end 
次 に 少し 暗い 白 み が か っ た シア ン の カラ ー コ ー ド を 求め て み ま す 。 上 図 を みて 、rgb 関数 で 求め る の 
は むず か し いよ う で す 。 
次 の 図 を みて 、hsy 関 数 を 使用 する と 、 
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print hsv(96,27,26) 


それ で は 、 次 の プロ グラ ム を 入力 し て 実行 し て みて くだ さい 。 


1 の /* hsv 
2 の int ai 
39 char ao,bo,co 
49 screen 1,3,1,1 


59 apage(9) 
69 vpage(1) 
7 input " 色 相 を 入力 し て くだ さい (9@~191)--->":ac 
89 input "飽和 度 を 入力 し て くだ さい (9@~ て 31)--->":bo 
39 input "明る さ を 入 力 し て くだ さい (9 へ < て 31)--->":coc 


199 ai=hsyv(ac,bc, oo )+1 
119 fi11(9,9,199,199,ai ) 
129 end 


この よう に 、 光 の 三原 色 で あら わ さ れ る 7 色 か ら 求 め ある こと が で きる よう な 比較 的 単純 な 色 の カラ 
ー コ ー ド は 、rgb 関数 を 使っ て 求め る こと が で きま す 。 

も っ と 複雑 な 色 の カラ ー コ ー ド を 求め る 場合 は hsy 関数 を 使う ) こ と が で きま す 。 

な お 、 いずれ の 場合 も 算出 で きる カラ ー コ ー ド は 0 一 65535 の 偶数 値 と な り ます 。0 一 65535 の 奇数 
値 の カラ ー コ ー ド を 表現 する 場合 は 、rgb 関数 や hsv 関数 で 返っ て きた 結果 に 1 を 加え て くだ さい 。 
rgb 関数 、hsv 関数 の 詳細 に つい て は 第 4 章 を 参照 し て くだ さい 。 


2.2 FM 音源 制御 


本 機 は YM2151 と いう FM 音源 LSI を 内 蔵 し て いま す 。 これ は 、 一 般 に OPM と 呼ば れ て いる タ 
イプ で 、 市 販 の シン セ サ イ ザ に も 搭載 され て いる た い へ ん 高 機能 な も の で す 。OPM は 8 オク ター ブ の 
FM 音源 を 8 チャ ン ネ ル 内 蔵 し 、 各 チャ ン ネ ル ご と に 音色 を 設定 し た り 、 左 / 右 ある い は その 両方 に 
出力 を 振り 分 ける こと が で きま す 。 つ まり 、 こ れ ひ と つ で 8 オク ター プ 8 重 和音 の ステ レオ 演奏 が 可 
能 と な る わけ で す 。 

本 機 の 内 蔵 ス ピー カ は モノ ラル で す が 、 本 体 後面 に は オー ディ オ 出 力 端子 が 装備 され て いま す の で 、 
これ を オー ディ オア ンプ や ラジ カセ な ど に 接続 する こと に より 、 ハ イフ ァ イ ス テレ オ サ ウ ンド を 楽し 
むこ と が で きま す 。 

FM 音源 は 発振 器 (これ を オペ レー タ と いい ます ) で 周波 数 変調 (Frequency Modulation) を か 
ける こと に よっ て 音色 を 作り 出し ます 。OPM は チャ ン ネ ル ご と に 4 つの オペ レー タ を 持っ て いま す 
の で 、 そ の 組み 合わ せ 方 (アル ゴリ ズム ) や 各 オ ペレ ー タ の 状態 を 操作 する こと で 、 無 数 と も いえ る 
音色 を 出す こと が で きま す 。 

X-BASIC で は 、 8 オク ター ブ 8 重 和 音 の ステ レオ FM 音源 を 利用 し た 演奏 を 行う こと が で きま 
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す 。 演奏 に は 、 実際 の 楽譜 に 対応 し た MML と いう 言語 を 使い ます 。 X-BASIC で は FM 音源 で 音楽 
演奏 を する 場合 、 こ の MML で 記述 され た 音色 や 音符 な どの 楽譜 デー タ を すべ て トラ ッ ク バ ッ フ ァ に 
書き こみ ます 。 トラ ッ ク バ ッ フ ァ は FM 音源 の 各 チ ャ ン ネ ル に 固定 され て いる の で は な く 、 必要 に 応 
じ て 領 域 を 確保 し 、 自 由 に 各 チ ャ ン ネ ル に 割り あて る こと が で きま す 。 ま た 、 演 奏 時 に は チャ ン ネ ル 
を 指定 する こと が で きま す 。 こ れ に よっ て 、 よ り 効 率 的 な 楽譜 デー タ の 記述 や 多彩 な 音楽 演奏 が 可能 
と な り ま す 。 

FM 音源 は 、 一 般 に 次 の 手順 で 使用 し ます 。 


FM 音源 を 初期 化す る (m ini0 

MML. デ ー タ (文字 列 ) を 格納 する トラ ッ ク バ ッ フ ァ を 確保 する (m alloc) 
トラ ッ ク バ ッ フ ァ を FM 音源 の 各 チ ャ ン ネ ル に 割り あて る (m assign) 
演奏 の テン ポ を 設定 する (m tempo) 

トラ ッ ク バ ッ フ ァ に MML デー タ を 格納 する (m trk) 

演奏 する (m play) 


〇 > の 1 中 CO トピ 


指定 され た 音色 番号 に 音色 デー タ を 設定 し た り 、 逆 に 音色 デー タ を 読み 出す 関数 (m vset、m_ 
vget) も あり ます 。 そ の 他 に 、 演 奏 の 状態 を 読み 出す m stat 関数 も あり ます 。 
それ で は 、MML に つい て 説明 する 前 に 、 楽 譜 と MML を 対応 させ て み ま し ょ う 。 


P.HRGRN2 CEMBRLU 
d=199 E 』-148 


MML 
準備 1 小節 目 2 小節 目 3 小節 目 4 小節 目 
o4v9q7I16 |: vi0T100@16>b2b2 く >a2g2@6 く T140v12>f2a2 く c2.r4: | 
o4v9q7I16 |: v10@16e2d2 く e2 > >b2@6 く vV12c2c2 くく e2.r4>>: | 
o4v9q7I16 |: vi0@16g2g2 くく c2>e2@6>  y212f2 くく g2.R4>>: | 
o4v9q7I16 |: vi0@16R2R2 R2 く b2@6> vV12a2a2 R2.R4: | 


この 楽譜 で は 、3 重 和音 の 部 分 と 4 重 和音 の 部 分 が あり ます 。 X-BASIC で MML を 使っ て 演奏 す 
る と き は 、MML の デー タ を 文字 (str) 型 変数 に 代入 し て 、 ミ ュー ジッ ク 関 数 に 渡し ます 。 
MML の 文法 に つい て 説明 し ます 。 
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(1) 書式 


楽譜 デー タ は MMTL デー タ (コマ ンド 、 フ パラ メー タ ) を 文字 列 と し て 続け て 記述 し ます 。 音 楽 演奏 
の さい は 、 記 述 し た 順番 に 実行 され る こと に な り ま す 。 各 デー タ は 、 詰 め て 書い て も スペ ー ス が 入っ 


て いて も か まい ませ ん し 、 小 文字 で 書い て も 大 素 夫 で す 。 
MIML デー タ の 一 覧 を 示し ます 。 以 下 、 こ の 表 を も と に 説明 を し て いき ます 。 


MML デ ー タ | 意 味 パラ メー タ 範 囲 (初期 値 ) 

An 一 Gn 音符 

AーG : 音程 (後ろ ク に # ま た は 十 を 付け る 

ど ジ ャ デー クワ 、ー を 付け る と ララ ッ 

n : 音 長 (n 分 音符 ) 1 一 64、 省 略 可 
Rn 休 符 (n : 音 長 ) 1 一 64、 省 略 可 
6 符 点 ( 音 長 を 1.5 倍 に する ) 
& タイ (前 後 の 音 を つなげ ば る) 
{音程 デー タ }n | 連 符 (n : 合計 の 音 長 ) 1 一 64 
On ク ター プ (m ・. 高 さ ) 0 一 8 (4) 
< オク ター プ を 1 つ 上 げ る 
> オク ター プ を 1 つ 下 げ る 
Tn | テン ポ (1 分 間 に 4 分 音符 を n 抽 ) 32 一 200 (120) 
Ln 音 長 (n 分 音符 ) 1 一 64 (4) 
@Ln 音 長 の 細か い 設 定 ( n /192 分 音符 ) 1-192 (48) 
Qn 1 音 中 で 実際 に 音 を 出す 割合 (n/8 ) 1-8 (8) 
Vn 音量 (n : 大 きる ) 0-15 (8) 
@Vn 音量 の 細か い 設定 _ | 0-127 
Pn ネス テレ オ 唱 カ (1 : 左 、2 : 有 有 、3 : 充 旋 1-3 (3) 
@n 音色 (n : 音色 番号 ) 1 一 200 (1) 
rd OPM に 直接 デー タ を 書き 込む 

うじ レ 有 2 欠 必 番号 

d : デー タ 
@Wn OPM の 状態 維 待 (n : 音 長 ) 1-64、 省 略 可 
| 8 滞 繰り 返し の 始め (n : 繰り 返し 回 数 ) 1 一 256、 省 略 値 2 
:| 繰り 返し の 終わ り 
| n 繰り 返し の n 回 目 で 演奏 する デー タ の 始め 1 一 256 
(DC 先頭 に 戻る (1 回 の み ) | 
(D.S) 〔SEGNO〕 に 戻る ( 1 回 の み ) 
〔SEGNO〕、($〕 | 〔D.S.) か ら の 飛び 先 
〔TOCODA〕J、〔*] | 【CODAJ に 飛ぶ (1 回 の み ) 
(CODA]〕 〔TOCODA〕 か ら の 飛び 先 | 
(FINE) 、( 〕 | 〔DCJ、(D.S〕、(*) 実 行 後 の 演奏 終了 
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(2) 音符 

楽譜 デー タ と し て も っ と も 基本 に な る の は 音符 の 記述 で す 。 実 際 の 楽譜 を 見 る と わか る よう に 、 ひ 
と つの 音符 は 音程 と 音 長 か ら な っ て いま す 。 MML の 場合 も 同様 に 、A 一 G で 音程 を 、1 一 64 の 数 字 
で 音 長 を 表し 、 2 つ 合わ せ て ひと つの 音符 に な り ます 。 AG の 代わ り に R を 使っ て 休 符 を 表す こと 
も で きま す 。 ま た 、 音 符 の 要素 と し て は タイ や 連 符 も あり 、 こ れ ら も 簡単 に 記述 で きる よう に な っ て 
ks ます 。 

@ 苦 程 

音程 デー タ AG の 意味 を 下図 に 示し ます 。 た だ し 、 こ こ に 示し た 音 の 高き は 実際 に は 音色 に よっ 
て オク ター プ が 異な る こと が あり ます 。 


計 5 
Da 


人 DE 忠信 AA 目 1 E F @ A B CGC DEF GA 委 … 
| | 


オク ター ブ 3 オク ター ブ 4 オク ター プ 5 


ここ で 、 AG の 後ろ に # ま た は 十 を 付け る と 半音 上 、 一 を 付け る と 半音 下 を 表し ます 。 た と えば いい C 
PC+? ヾ Dー? は すべ て 同じ 音 、 音 楽 記 号 の C# (DD) に な り ま す 。 
@ 苦 長 

音 長 デ ー タ は 音程 デー タ ( 休 符 を 含む ) の 後ろ に 数 字 を 付け て 表し 、 こ の 数 字 を n と する と その 音 
符 は n 分 音符 で す 。 た と えば 、 こ れ を 音楽 記号 で 表す と 次 の よう に な り ま す 。 


音 長 デ ー タ は 省略 可能 で 、 そ の 場合 は 後述 の L コマ ンド で 設定 され た 音 長 に な り ま す 。 ま た 、 ピ リ 
オド ( . ) を 符 点 の 意味 で 使用 する こと が で き 、 こ れ を 付け る と 音 長 が 1.5 倍 に な り ま す 。 2 つ 付 ける 
と 1.75 倍 で す 。 た と えば 、“C4.* は 符 点 4 分 音符 、L 8 に 設定 され て いる と き の ヾ C. は 符 点 8 分 音 
符 と な り ま す 。 

@ ク タイ と 連 符 

2 つの 音符 デー タ の 間 に 巡 を 入れ る こと に より 、 2 つの 音 を つない で 鳴ら す (タイ ) こと が で きま 
二 

連 符 は 音程 デー タ を { } で くく り 、 そ の 後ろ に 音 長 デ ー タ を 付け る こと に より 記述 し ます 。 こ の 場 
合 、{ 内 の 音 を 合計 する と 指定 し た 音 長 に な る よう に 演奏 され ます 。 つ まり 、 1 つの ひと つの 音 
は 、 指 定 し た 音 長 を 音程 デー タ の 個数 で 等 分 し た 長 さ で 鳴ら きれ る わけ で す 。 た と えば 、 こ れ を 使っ 
て 3 連 符 を 記述 し た 場合 の 音楽 記号 と の 関係 は 次 の よう に な り ま す 。 


ビ 3 コ ー3 コ 


ICCCE 4 で ee… | | CCI vosee 征 」 


49 


第 2 章 応用 編 


(3) 状態 設定 

この MML は 音符 を 記述 する だ け で な く 、 オ クタ ー ブ や テン ボ 、 音 長 、 音 量 な ど を 細か く コ ント ロ 
ー ル する こと が 可能 で す 。 さら に 、 OPM の 特長 を 生か し て 、 音色 の 選択 や ステ レオ 出力 の 切り 換え も 
行う こと が で きま す 。 

@ オ クタ ー ブ 

オク ター デ は 〇 コマ ンド で 値 を 直接 指定 する 方 法 と “ そ ぐ ?、 ">” で オク ター プ を 上 げた り 下 げた り 
する 方 法 が あり ます 。 前 者 は 音楽 の 各 パ ー ト の 先頭 部 分 、 あ る い は パー ト の 途中 で 音色 を 変え た と き 
な ど 、 後 者 は 演奏 中 に 一 時 的 に オク ター プ ブ が 変わ る と き に 使用 する と よい で し ょ う 。 た と えば 、 次 の 
楽譜 は GAB く CDC> BAG” の よう に 記述 で きま す 。 


明 


オク ター ブ プ の 値 と 音程 の 関係 は 音符 の 項 で 述べ た と お り で す 。 オク ター ブ 0 で は C、C 弘 D の 音 は 
使え ず 、 オ クタ ー ブ 8 で は C、 C# D 以 外 の 音 は 使え を ませ ん 。 オク ター プ ブ の 値 は 初期 状態 で は 4 に な 
っ て いま す 。 

@ テ ン ボ 

テン ボ ポ の 設定 は T コマ ンド で 行い ます 。 つま り 、 曲 中 で 演奏 の テン ポ を 変え る こと も で きる わけ で 
す 。 設 定 値 は m tempo 関数 と 同様 、 1 分 間 に 4 分 音符 を 何 拍 打 つか で 表し ます 。 

@ 苦 長 

音 長 は 音符 デー タ の ほう で 1 音 1 音 に つい て 記述 する こと が で きま す が 、 こ れ を 省略 し た 場合 の 音 
符 の 音 長 を 設定 する の が L コマ ンド 、@L コマ ンド で す 。 楽譜 の な か で も っ と も 多く 出 て くる 音 長 を 
設定 し て お く こ と に よっ て 、 効 率 的 に 楽譜 デー タ を 記述 する こと が で きま す 。 

L コマ ンド の 設定 値 は 音符 の 音 長 デ ー タ と まっ た く 同 じ 意 味 で す 。 こ れ に 対し て 、@L コマ ンド は 
全音 符 (4 分 音符 4 つ 分 の 長き) を 192 と し て 音 の 長 さ を 指定 する の で 、 音 長 を より 細か く コ ント ロー 
ル す る こと が で きま す 。 た と えば 、L 8 と @L24 は 同じ 意味 で 、 @L25 は L 8 より も 少し だ け 長 い 音 に 
な り ま す 。@L コマ ンド に よる 微妙 な 音 長 設定 を 曲 全体 に 対し て 行う と 、 リ ズム の 管理 が 大 変 に な る 
の で 、 曲 の な か で 部 分 的 に 特殊 な 効果 を 出し た い 場 合 、 あるいは 効果 音 な ど に 使用 する と よい で し ょ 
ヴ ャ 
@ 昔 を 出す 時 間 

一 般 に 、 同 じ 4 分 音符 で も 、 そ の な か で 実際 に 音 を 出し て いる 時 間 は まち まち で す 。 音 楽 記号 に テ 

ヌー ト と か スタ ッ カ ー ト と いう の が あり ます が 、 こ れ も そ うい っ た 音 の 出し 方 を 指示 する 記号 で 、 音 
符 に 示さ れ た 長 さ いっ ぱい まで 音 を 出し た り 、 逆 に 音 を 切っ た りす る こと を 示し ます 。 

この よう に 、 1 つ ひ と つの 音符 の 音 長 の う ち 実 際 に 音 を 出す 時 間 の 割合 を 設定 する の が Q コマ ンド 
で す 。Q コマ ンド で は その 割合 を 1 プ 8 一 8/8 で 指定 し 、 値 が 小さき く な る ほど スタ ッ カ ー ト ぎみ 
に 、 大 きく な る ほど テ ヌ ー ト ぎみ に な り ま す 。 た だ し 、 音 色 に よっ て は それ ほど 効果 は あり ませ ん 。 
な お 、 初 期 状 態 で は Q 8 に な っ て いま す 。 

@ 苦 量 


音量 は V コマ ンド 、 あ る い は @V コマ ンド で 設定 し ます 。 V コマ ンド の 設定 値 は 0 一 15、@V コマ 
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ンド の 設定 値 は 0 一 127 で 、 い ずれ も 値 が 大 きい ほど 音量 も 大 きく な り ま す 。V コマ ンド と @V コマ ン 
ド の 設定 値 に は L コマ ンド と @L コマ ンド の よう な 相関 関係 は な く 、V コマ ンド は 聴感 上 V 0 か ら 
V15 ま で 正 比例 的 に 音量 が 変化 する の に 対し て 、@V コマ ンド は 設定 値 が 大 きく な る ほど 変化 量 が 大 
きく な っ て いき ます 。 初期 状態 で は V 8 に 設定 され て いま す 。 

る ステ レオ 出力 

OPIM が ステ レオ 出力 を サポ ー ト し て いる の は 前 述 の と お り で す 。 本 機 の 内 蔵 ス ピー カ は モノ ラル 
で 、 左 右 両方 の 音 を 一 緒 に 出し て いま す が 、 後 面 の オー ディ オ 出 力 端子 か ら オ ー デ ィ オ アン プ な ど に 
接続 する こと に より ステ レオ サウ ンド を 楽し むこ と が で きま す 。 MML で 左右 に 音 を 振り 分 ける に は 
P コマ ンド を 使い ます 。P1 と すれ ば 左 か ら 、P2 と すれ ば 右 か ら 、P3 と すれ は ば 左右 両方 か ら 音 が 出 ま 
す 。 初 期 状 態 で は PS に な っ て いま す 、P コマ ンド は 、 音 色 と 音 符 デ ー タ の 間 に 入 れ て 指定 し ます 。 

@ 音色 

音色 の 選択 は @ コ マン ド で 音色 番号 を 指定 する こと で 行い ます 。 初 期 状 態 で は 1 番 か ら 68 番 まで の 
音色 が あら か じ め 登 録 さ きれ て お り (これ を プリ セッ ト 音 と いい ます )、 さ ら に ユー ザー が 作成 し た 音色 
デー タ を 登録 する こと に よっ て 合計 200 番 まで の 音色 を 使う こと が で きま す 。 また 、 登録 済み の 音色 デ 
ー タ を 読み 出し 、 デ ー タ を 書き 換え て 再 登録 する こと で 、 音 色 を 修正 する こと も 可能 で す 。 詳 細 に つ 
いて は 、m vget 関数 、m vset 関数 を 参照 し て くだ さい 。 

以下 に 、 プ リセ ッ ト 音 の 一 覧 を 掲載 し ます 。 こ の な か で 打楽器 は それ らし い 音 に な る 音程 が 限ら れ 
て いま す 。 括弧 内 に 基本 と な る オク ター ブ を 示し て お きま す の で 参考 に し て くだ さい 。 


17 の 24 ボイス 47 バス ドラ ム [0] 
9 。. ピ アノ 25 コー ラス 48 タム タム [2] 
3 エレ クト リッ ク ピ ア ノ 26 グラ スハ ー ブ 49 ティ ン パ ニ [2,3] 
4 クラ ビ ネ ッ ト 27 ホイ ッ ス ル 50 ボン ゴ [2,3] 
5 セレ スタ 28 ピッ コロ 51 ティン パレ ス [3] 
6 チェ ン バ パロ 29 フル ー ト 52 ドラ イア シン グル [3,4] 
7 アコ ー ス ティ ッ ク ギ ター |30 オー ボ エ 53 カウ ベル [3,4] 
8 エレ クト リッ クギ ター 31 クラ リネ ッ ト 54 チュ ー ブ ラ ー ベ ル 

9 ウッ ド ベ ー ス 32 バス ー ン 55 スチ ー ル ドラ ム 

10 エエ レク トリック ペー ス 39 サッ クス 56 グロ ッ ケ ン 

11 バン ジョ ー 34 トラ ン ペ ッ ト 57 区 デ プ タ フ ォ ジ 

箇 ジ シタ ー 北 35 ホル ン 58 マリ ン バ 

13 ハー ブ 36 トロ ン ボ ー ン 59 クロ ー ズ ハイ ハッ ト [3] 
14 其 37 チュ ー バ 60 オー プン ハイ ハッ ト [4] 
15 パイ プ オ ル が ガン 1 38 メラ ズ 1 61 シン バル [4] 
16 バ パイプ オ ル ガ ン 2 39 プラ ス 2 62 シン セ サ イ ザ 1 

17 エレ クト リッ クオ ル ガ ン |40 ハー モニ カ 63 シン セ サ イ ザ 2 

NB アコ ヨー デオ シン 41 オカ リナ 64 アン ビュ ー ラ ンス (効果 音 ) 
19 バイ オリ ン 42 リコ ー ダ ー 65 嵐 (効果 音 ) 

20 チェ ロ 43 サン バ ホ イッ スル [3.4] |66 レー ザー ガン (効果 音 ) 
2T スズ ド リウ ダス 1 44 パン フル ー ト 67 ゲー ム 1 (効果 音 ) 

22 ネト リン グズ スネ 2 45 スネ アド ラム [2] |68 ゲー ム (効果 音 ) 

23 ピチ カー ト 46 リム ショ ッ ト [3] 
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@ OPM 制御 


これ まで に 説明 し た コマ ンド だ け で も 非常 に きめ 細か な 音楽 制御 が 可能 で す が 、 さ ら に OPM に 直 
接 デ ー タ を 書き 込ん で コン トロ ー ル する こと も で きま す 。 こ れ を 行う の が Y コマ ンド で す 。 書 式 は 
YYr,d で 、r に OPM の レジ スタ 番号 、d に 書き 込む デー タ を 指定 し ます 。 た だ し 、 レ ジス タ 番 号 
1 、16、17、18、20 は 使え ませ ん 。 


Y コマ ンド で 設定 し た OPM の 状態 を 一 定時 間 を の まま 維持 する の が @ W コマ ンド で す 。 


設定 値 


は 音符 デー タ の 音 長 と 同じ 意味 で 、 省略 も 可能 で す 。 こ の コマ ンド は Y コマ ンド で OPM に KEY 
ON/OFF を 指定 し た あと で の み 有 効 で す 。 

下 表 に レジ スタ 番号 と デー タ の 対応 を 示し ます 。 各 デー タ は ビッ ト ご と の 意味 を も っ て いま す 。 内 
容 に つい て は 、 資料 編 の 「FM 音源 の 音色 デー タ (レジ スタ )」 を 参照 し て くだ さい 。 


レジ スタ 番号 デー タ (ピッ ト デ ー タ ) 
(10 進 数) 5 1 0 
に LFO 
TEST (テス ト 用 ) ee 
了 KEY ON/OFF 
スロ ッ ト マ スク | チャ ン ネ ル 番 号 注 1 
OF NE NOISE FREQUENCY 
10 CLK Ai 
1 CLK A。: 
12 CLK B 
F RESET | IRQEN LOAD 
14 CSM ーー 
5 | AIBlAlBSl& 
18 スピ ー ド (LFRQ) 
19 PM AM PMD or AMD 
CT。 | CT 
1B | ( 還 | ( 燈 ea 
20 一 注 2 LR PAN フィ ー ド バッ ク アル ゴリ ズム 
8 KEY CODE 
28 一 注 2 一 
OCT | NOTE 
30 一 沖 2 KEY FRACTION 
38 一 注 2 PMS AMS 
40 一 注 3 DTi MUL 
60 一 注 3 TL 
] 
80 注 3 KS AR 
、。 | AMS 
A0 一 詩 3 | DIR 
CO0- 注 3 DT2 D2R 
EO- 注 3 DiL RR 
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注 | : チャ ン ネ ル 番 号 三 0 一 7 
注 2 : レジ スタ 番号 王 表 中 の レジ スタ 番号 十 チ ャ ン ネ ル 番 号 
注 3 : レジ スタ 番号 ニ 表 中 の レジ スタ 番号 十 (オペ レー タ 番 


号 一 「) X4 十 チャ ン ネ ル 番 号 
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(4) 繰り 返し 

この MML で は 繰り 返し が サポ ー ト され 、 楽 譜 デ ー タ を 効率 的 に 記述 する こと が で きま す 。 ま た 、 
これ を 活用 する こと に よっ て トラ ッ ク バ ッ フ ァ に 書き 込ま れる デー タ を 大 幅 に 節約 する こと が で きま 
す の で 、 長 い 曲 を 演奏 する と き に も 有利 で す 。 繰り返し を 示す コマ ンド は 一 般 の 音楽 記号 と よく 似 た 
も の に な っ て いま すか ら 、 音 楽 記号 と 対応 させ て 説明 し て いき ます 。 
@ 単 績 ループ 

音楽 記号 に 次 の よう な も の が あり ます 。 


これ は 四 : と :| の 間 を 繰り 返す も の で す 。 MML で も 同様 に 繰り 返し た い 内容 を | : と : | で < 
くる こと に よっ て 繰り 返し を する こと が で きま す 。 こ こ で | : の 後ろ に 1 256 の 数 字 を 付け る こと 
で 繰り 返し 回 数 を 指定 する こと が 可能 で す 。 省 略し た 場合 は 2 回 に な り ま す 。 | : 一 : | ループ を 含 
む 楽 譜 デ ー タ を さら に | : 一 : | で くく る こと は で きま せん 。 

また 、 音 楽 記 号 に は | 1. と か [| 2. の よう な も の も あり ます 。 こ れ は 繰り 返し の 何 回 目 か に 演奏 
する 内 容 を 指定 し ます 。 これ も MML で サポ ー ト され て お り 、| n で n 回 目 に 演奏 する 内 容 を 指定 す 
る こと が で きま す 。 た と えば 、 


の よう な 楽譜 は | : CDEF | 1GFED : | | 2GAB<C′ と 記述 し ます 。 
@ 治め に 戻る 

音楽 記号 で D.C. と いう の は 「 始 め に 戻る 」 と いう 意味 で す 。MML で も 同様 に [D.C.] と 中 括弧 で く 
くっ て 記述 する こと で 曲 の 始め に 戻る こと が で きま す 。 
@ Segno に 戻る 

音楽 記号 の 多 は セー ニョ (Segno) と 読み ます 。 そし て 、 D.S. と いう の は ダル セー ニョ と 読み 「Segno 
に 戻る 」 と いう 意味 で す 。 そ れ ぞ れ [SEGNO]、[D.S.] と 記述 すれ ば MML で も 同じ こと を し ます 。 
[SEGNO] は [$ ] と 略記 する こと が 可能 で す 。 
@ Coda に 飛ぶ 

音楽 記号 に ゆ と い う の が あり ます 。 こ れ は コー ダ (Coda) と 読み 、D.C. や D.S. を 実行 し た あと to 
(to Coda) に 来 た と き に そこ へ (Coda) 飛ぶ た め の も の で す 。MML で は それ ぞ れ [CODA]、 
[TOCODA] と 記述 し ます 。 後 者 は [*] と 略記 する こと が 可能 で す 。 
@ Fine 
D.C. や D.S. で 繰り 返し を し た あと で 曲 が 終了 する 場合 に 、 そ れ を 示す の が Fine で す 。 同 様 に 、MML 
で は 、[FINE] あ る い は [ 「] を 実行 する と 演奏 が 終わ り ま す 。 
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で は 、 先ほど の MIML の デー タ を X-BASIC て 演奏 する プロ グラ ム を 示し ます 。 各 関数 に つい て の 
詳細 は 、 第 4 章 を 参照 し て くだ さい 。 


2 .3 


/* play 

str a[255] /* トラ ッ ク バ ッ フ ァ 

m_init( ) /* 初期 化 

m_alloc(1,2999) : m alloc(2,2999) : m al1loc(3,2909) : m alloo(4,2900) 
m _ assign(1,1) ・ m_asSign(2,2) ・ m_aSS1gn( 3,3) ・ m_aSsSign(4,4 ) 


/* part 1 
a="o4v9q7116|: v19T199@16>b2b2< >a2g2@6< T149v12>f2a2< c2.r4:1" 
write trk(1) 
/* part 2 
a="o4v9q7116|: v19@16e2d2 <e2>>b2@6< v12c2c2 くく <e2。r4>>:1" 
write trk(2) 
/* part 3 
a="o4v9q7116|: v19@16g2g2 <<c2>e2@6> v12F2F2 く <g2。R4>>:17 
write trk(3) 
/* part 4 
a="o4v9q7116|: v19@16R2R2 R2<b2@6> v12a2a2 R2.R4:|" 
write trk(4) 
/* play !! 
m_play( ) 
end 
/* write trk 
func write trk(i ) 
m trk(i,a ) 
endfuno 


音声 サン プリ ング (ADPCM) 


本 機 で は 、ADPCM と いう 方 式 で 音声 を サン プリ ング し て 、 録 音 ・ 再 生 す る こと が で きま す 。X- 
BASIC に は 、 そ の た め の 関 数 が 用 意 き され て いま す 。 

サン プリ ング し て 録音 し た 音声 は メモ リ に 格納 され ます 。 こ れ を ファ イル に 書き 出す こと で 、 音 声 
デー タ を フロ ッ ピ ー デ ィ ス ク や ハー ド デ ィ スク な ど に 記録 し て 、 あ と で 再生 する こと が で きま す 。 


録音 は 、 


本 機 の オー ディ オ 入 力 端 子 (AUDIO IN) に ラジ カセ な ど を 接続 し て 行い ます 。 ま た 、 再 


生 は 、 内 蔵 ス ピー カ か ら 行 うか 、 オ ー デ ィ オ 出力 端子 (AUDIO OUT) に 接続 し た オー ディ オ 機 器 か 
ら 行い ます 。 

録音 ・ 再 生 で きる 音声 の 長き は 、 サ ンプ リン グ 周 波数 に よっ て 変わ り ま す 。 サ ンプ リン グ 周 波数 が 
高けれ ば 、 録 音 す る と き に 一 度 に 消費 する メモ リ が 大 きく な り ま す 。 詳細 は 、 第 4 章 を 参照 し て くだ 


さい 。 


ADPCM に よる 録音 と 再生 は 、 一 般 に 次 の 手順 で 使用 し ます 。 


| 


PCM デー タ (音声 ) を 格納 する 配列 変数 を 宣言 する 


2 録音 する (a rec) 
3 再生 する (a play) 


(4 
(5 


PCM デー タ を ファ イル に 保存 する ) 
PCM デー タ を ファ イル か ら 読 み 込む ) 
a_rec 近 デ 
ン に ゝ ーーーーー プ ーーーーー ハ 
S モ 〇 
D 1 生 し | 3 
aplay ロー ド 
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2.3 音声 サン プリ ング (ADPCM) 


本 機 と オー ディ オ 機 器 を 接続 し て 、 次 の プロ グラ ム を 実行 し て くだ さい 。 


19 /* a reo sample 

2 の int ai 

39 char ac 

49 str as 

5 の 9 dim char aoa(65535) 
69 screen 2,.9,1,.9 

7 /* reoord 


89 repeat 

99 print "録音 する た め の サ ンプ リン グ 周 波数 " 

199 BI も れ 科 も 。 (9=3.。9KHz 。 1=5 .2KHz ,2=7 。SBKHz,3=10。4KHz。4=15。6KHz)" 

119 tnpu も "録音 する た め の サ ンプ リン グ 周 波数 を 入力 し て くだ さい (9@---4)--->『": 
aC 

129 unti1 ao<5 

139 /* 

149 print "この 例 で は サン プリ ング 周波 数 に よっ て 次 の よう な 録音 時 間 に な り ま す " 

159 switoh ao 

169 case の :print " サン プリ ング 周 濾 数 ( 3.9KHz)---> 約 33 秒 間 ":break 

170 caSe 1:print 「『 サン プリ ング 周波 数 ( 5.2KHz)---> 約 25 秒 間 ":break 

1809 caSe 2:print " サン プリ ング 周 濾 数 ( 7.8KHz)---> 約 16 秒 間 ":break 

199 case 3:print " サン プリ ング 周波 数 (19.4KHz)---> 約 12 秒 間 "':break 

299 case 4:print " サン プリ ング 周波 数 (15.6KHz)---> 約 8 秒間 " 


219 endswitoh 

229 while as<>"y" 

236 print "録音 し ます の で 'y'*- を 押し て くだ さい " 

249 as=inkey$ 

259 endwhile 

269 print "録音 中 で す " 

279 a rec(aoa,ao,65536 ) 

289 as="“" 

299 print "< く test.dat> と いう ファ イル に 録音 デー タ を セー ズブ p 

399 prin も t " ( すでに ある ぐ く test.dat> と いう ファ イル は 消去 さ 
だ (WS 7 

31 の print "セー プ し て も よい 場合 は 'y'*- を 押し て くだ さい " 

32 の 9 as=inkey$ 

339 if as="y" then { 


し ます 
れ ま す の で 注意 し て く 


340 ai=fopen( "a:\test.dat","o") 

3509 furite(aca,65536,ai ) 

369 foclose(ai ) 

370 } 

389 /* play 

399 repeat 

409 print "再生 する た め の サ ンプ リン グ 周 波数 

410 ID や も "(CO=3。 の 5 .2KHz,2=7 .8KHz,3=19.4KHz,4=15.6KHz)" 

420 input "再生 する た め の サ ンプ リン グ 周波 数 を 入力 し て くだ さい (9---4)--->" 
Ye 

439 unti1 aco<5 

449 /* 


よ 50 DEtnt "ご ご で は 、65536 を さき き ほ どの 録音 時 間 と みな し て 、 再 生 さ せ た い 時 間 に 相 


当 す る 値 ( バ イト 数 ) を 入力 し ます 
469 repeat 


470 input "再生 する た め の バ イト 数 を 入力 し て くだ さい (9---65536 )---> "ja 


489 unti]1 ai>-1 or a1<65537 
499 switoh ao 


590 case の:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->" 
"ia1:break 

519 case 1:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->": 
"ia1:break 

529 case 2:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->" 
"ia1:break 

539 case 3:print "再生 する た め の サ ンプ ブ プリ ング 周波 数 と バイ ト 数 --->": 
"ja1i:break 

546 case 4:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->"j" 
" ま 可 エ 

559 endswitoh 

569 as="「 

579 while as<>"y" 

589 pr3m も リ 再 生 し まず す ので"yY**- を 押し て くだ さい 

590 as=inkey$ 


699 endwhile 
61 の お Pt も " 入 テ ルオ 財力 で 再 人 入 し ます " 


629 a plary(aoa,ac,3,ai ) 
639 end 
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2.4 ファ イル 操作 


X-BASIC で は 、 ど の よう な ファ イル も すべ て 、 単 な る デー タ の 連続 と し て 扱い ます 。 フ ァイル を 
ラン ダム に 操作 する と き は 、 ポ イン タ と いう 「 目 印 」 を 使っ て デー タ を 読み 書き し ます 。 

デー タ の 読み 書き は 、1 バ イト 単位 で 行う 場合 と 、 デ ー タ の 型 (char、int、float) 単位 で 行う 場 
合 が あり ます 。 ま た 、 文 字 列 単位 で も 読み 書き を 行え を ます 。 こ の 場合 は その デー タ の 型 に 応じ て ポイ 
ンタ が 移動 し て いき ます 。 

この 他 に ファ イル を ラン ダム アク セス し て 、 デ ー タ の 型 に か か わり な く フ ァイル 内 の 任意 の 位置 に 
ポイ ンタ を 移動 する こと も で きま す 。 

な お 、 ファ イル 操作 で 使用 する ドラ イブ 名 や ファ イル 名 の 詳細 に つい て は 別冊 の 「Human68k ユー 
ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 

ファ イル 操作 の 基本 的 な 流れ は 、 次 の よう に な り ま す 。 


1 ファ イル を オー プン する (また は 新規 に 作成 する ) (fopen) 
(2 ファ イル を ラン ダム アク セス し て ポイ ンタ を 移動 する (fseek)) 
3 ファ イル か ら デ ー タ を 読み 出す (fread、fgetc、freasds)、 ま た は ファ イル へ デー タ を 書 
き 込 む (fwrite、fputc、fvwrites) 
4 ファ イル を クロ ー ズ する (fclose、fcloseall) 


ある ファ イル を 操作 する た め に は 、 ま ず そ の ファ イル を オー プン し な けれ ば な り ま せん 。 ファ イル 
に は オー プン モー ド と 呼ば れる モー ド が あり 、 そ れ ぞ れ 次 の よう な 意味 が あり ます 。 


クリ エイ トモ ー ド ("oe") ……… ファ イル を 新規 に 作成 し ます 
すでに 同じ 名 前 の ファ イル が 存在 する と き は デー タ が すべ て 失 


われ ます 
リー ドモ ー ド (PD meioiln すでに 存在 する ファ イル を 読み 出し 専用 と し て オー プン し ます 
ライ トモ ー ド ("wD_………… すでに 存在 する ファ イル を 書き 込み 専用 と し て オー プン し ます 


リー ドラ イト モー ド Crw") … す で に 存在 する ファ イル を 読み 書き 両用 と し て オー プン し ます 


ファ イル を オー プン する と 、 フ ァイル ご と に 番号 が つけ られ ます 。 以 後 の 読み 書き は 、 こ の ファ イ 
ル 番 号 を 使っ て 行い ます 。 

オー プン し た ファ イル は 、 処 理 が 終っ た ら 必ず クロ ー ズ し な けれ ば な り ま せん 。 フ ァイル を クロ ー 
ズ し な いと 、 守 一 夕 が 壌 ん れ て し まう こと が あり ます 。 

プロ グラ ム で ファ イル を 操作 する と き に は 、 ま ず 、 フ ァイル 番号 を し まっ て お く 変 数 (int 型 ) を 宣 
言 し ます 。 も し 複数 の ファ イル を オー プン する の で あれ ば 、 こ の 変数 も 複数 用 意 し ます 。 ま た 、 フ ァ 
イル を 読み 書き する と き な ど に 、 関 数 が いろ いろ な 情報 を 戻り 値 と し て 返し ます (た だ し 、 戻 り 値 を 
無視 し て も か まわ な いこ と も あり ます )。 そ の た め の 変 数 Gnt 型 ) も 宣言 し ます 。 


19 int fp /* ファ イル 番号 
29 int fc /* 戻り 値 


ファ イル 名 が あら か じ め 決 っ て いる と き は 、 そ れ も 変 数 (str 型 ) に し て お いた ほう が よい で し ょ 


う 。 
39 str fname="sample.dat" 
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2.4 ファ イル 操作 


準備 が で きた ら 、 フ ァイル を 作成 し て 、1 文字 書き 出し 、 フ ァイル を クロ ー ズ し て み ま す 。 


49 
59 
69 
79 


fp=fopen(fname,"o") /* 
fc=fputo( 'a' fp) /* 
fo=folose(fp) / ネ * 
end 


文字 キャラ クタ コー ド で ファ イル に 書き 込ま れ ま す 。 
で は 、 い ま 作 成 し た ファ イル の 内 容 を 画面 に 表示 し て み ま し ょ う 。 


19 
20 


int fp /* ファ イル 番号 
int fc /* 戻り 値 


int dt /* 読み 出し た デー タ 


str fname="sample.dat" 
fp=fopen(fname,"r") /#* 
dt=fgeto( fp) / ネ 
print chr$(dt) / ネ * 
fc=foclose(fp) /* 
end 


ー ド モー ド で オー プン 
文字 読み 込む 
字 の 表示 
ァイル を クロ ー ズ 


この ファ イル に 文字 を 追加 し て 書き 出し た あと 、 3 番目 の 文字 を 読み 出し て 表示 し ます 。 


int fp /* ファ イル 番号 
int fc /* 戻り 値 


chbar dt /* デー タ 
dim char dts(5)={'b!。 7o 
int 1i,dp 
Str fname="sample.dat" 
fp=fopen(fname, "er" ) / ネ * 
dp=fseek(fp, の 9,2) /* 
for i=9 to 4 
dt=dts(1 ) 
fc=fputc(dt,fp) /* 
next 
fc=fclose(fp) /* 
fp=fopen(fname,"r") /* 
dp=fseek(fp,2,9) /* 
dt=fgetc(fp) /* 
print oha$(dt) / ネ 
fo=fclose(fp) /* 
end 


す 


NN 


N 員 上 いい に ざこ 避 


oh 

ァイル の 最後 へ ボイン タ を 移動 

ー タ を 書き 出す 

ァイル を クロ ー ズ 

ー ド モー ド で オー プン 

ァイル の 先頭 か ら ポ イン タ を 2 つ 進 め る 
文字 読み 込む 

字 の 表示 

ァイル を クロ ー ズ 


57 


第 2 章 応用 編 


次 の プロ グラ ム は 、 テ キス ト フ ァイル を 作成 する エディ タ で す 。 た だ し 、 編 集 の 機能 な ど は あり ま 
せん 。 ま た 、 常に グリエ イト モード で ファ イル を オー プン する の で 、 注意 し で ぐだ さい 。 


10 /* Tiny EDITOR ted.bas 
2 の str fname[ 29] 

39 str bufFf[200] 

49 int fp, fo 

59 char CR=13, LEF=10 

69 /* main 

79 fninput( ) 

89 fp=fopen(fname,"c" ) 

99 edit( ) 
109 fc=fc1lose(fp) 
119 end 
129 /* fninput 
139 func fninput( ) 
140 print “Tnput fi1e name >": 
159 1input fname 
160 endfunc 
179 /* edit 
189 funo edit( ) 


190 print "Tnput data(END = /)" : print 
299 while buff <> "/" 

2109 AD も CST SDMEE 

229 23" が UTE く か ツア も Be 【 

239 ferites(buff ,fp) 

240 fputc(CR, fp ) 

259 fputc(LF, fp ) 

269 


270 endwhile 
289 endfunc 


次 の プロ グラ ム は 、Human68k の type コマ ンド と 同じ 動作 を し ます 。 つま り 、 テキ スト ファ イル 
を 読み 込ん で 、 画面 に 表示 し ます 。 先 ほど の プロ グラ ム で 作成 し た デー タ の 内 容 を 確認 で きま す 。 


1 の /* Text TYPE typ.bas 
29 str fname[20] 

3 str buff[ 206] 

4 の int fp, fo 

59 int EOF=-1 

69 /* main 

7 の fninput( ) 

89 fp=fopen(fname,"r") 
99 type( ) 

199 fo=fo1ose(fp) 

119 end 

129 /* fninput 

139 funo fninput( ) 

1469 print "Tnput file name >": 
159 1input fname 

169 endfuno 

179 /* type 

18 の funo typet( ) 

199 while feof(fp) <> EOF 
290 freads(buff,Ffp) 
219 print buff 

229 endwhile 
239 endfuno 


58 


2 、5 


その 他 の 機能 


いま まで 説明 し て きた も の の 他 に も 、X-BASIC に は 多く の 関数 が 用 意 さ れ て いま す 。 
また 、 子 (チャイルド) プロ セス に よる Human68k の コマ ンド の 実行 も サポ ボート し て いま す 。 


2 。 衣 。 1 


マズ ・ 


マウ ス 、 ジ ョ イス ティ ッ ク 制 御 


トラ ッ ク ボ ー ル や ジョ イス ティ ッ ク も 、X-BASIC で 制御 する こと が で きま す 。 詳細 は 、 


第 4 章 を 参照 し て くだ さい 。 


・ マ ウス 制御 

X-BASIC で は 、 マ ウス ・ ト ラッ クボ ー ル の 初期 化 、 マ ウス カー ソル の 移動 範囲 の 設定 、 ボ タン の 
状態 の 確認 な ど を 行え を ます 。 次 の プロ グラ ム で は 、 マ ウス ・ ト ラッ クボ ー ル を 初期 化し た あと 、 マ ウ 
スカ ー ソ ル の 移動 範囲 を 設定 し て いま す 。 


19 
29 
36 
40 
59 
69 
79 
89 
99 
169 


/* mouse sample 

scoreen 2,.9,1,1 

vpage(1 ) 

mouse(9 の ) 
msarea( の 9,9,699,4090) 
box(9,9,699,499,15,&HFFEF ) 
mouse(1 ) 

1oocate 1,5 


print "(の ,9)<--->(699,499) の 範囲 で マウ ス を 動か し て くだ さい !“" 
end 


・ ジ ョ イス ティ ッ ク 制 御 
X-BASIC で は 、 ジ ョ イス ティ ッ ク の ステ ィ ッ ク と トリ ガー の 状態 を 調べ る こと が で きま す 。 次 の 
プロ グラ ム は 、 ジ ョ イス ティ ッ ク の ステ ィ ッ ク が どの 方 向 に 動か され た か を 表示 し ます 。 


189 


/* joy_stiok sample 
さも ii も 1 

cls 

while bi く >1 


ai=stick(1 ) 
tocate 19,11 
Switoh ai 


case tl:print "1eft back ( 左 後 ) ="iai:break 
case 2:print "back (人 後 ) ="ja1:break 
case 3:print "right back ( 右 俊 ) ="ja1i:Dreak 
case 4:print "1eft ( 左 ) =" ja1:break 
case 6:print "right ( 右 ) ="jai:break 
case 7:print "1eft forward (左前 ) ="jai:break 
case 8:print "forward ( 前 ) ="jai:break 
case 9:print "right forward (右前 ) ="jai:break 
ス 


default:locate 19,19:print "ジョ イ 
1ocate 19,11:print " 
endswitoh 


ティ ッ ク を 動か し て くだ さい ! 


199 endshile 
299 end 
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2.5.2 文字 列 操作 


X-BASIC で は 、 フ ァイル 操作 な ど で 扱う 文字 列 に 対し て 、 い ろ い ろ な 文字 列 操作 を 行う 関数 を 数 
多く 用 意 し て いま す 。 


@ 指 定 さ れ た 文字 の 種類 を 調べ る 関数 …… (Gsalnum、isalpha な ど ) 

@ 文字 列 か ら 指定 され た 文字 や 文字 列 を 検索 する 関数 …… (Gnstr、strchr、strcspn な ど ) 
@ 指 定 され た 文字 や 文字 列 を 変換 する 関数 …… (mirror$ 、strlwr、strnset、toascii な ど ) 
@ 文字 列 か ら 指定 され た 文字 を 区 切り 文字 と し た 文字 列 に 分 解す る 関数 …… (strtok) 

@ 指 定 され た 文字 で で きた 文字 列 を 作成 する 関数 …… (space$ 、string$ 、strset な ど ) 

@ 文字 列 と 数 値 を 変換 する 関数 …… (asc、atof、bin$、chr$、ecvt な ど ) 


次 の プロ グラ ム は 、 フ ァイル の デー タ の 1 文字 修正 を 行う も の で す 。 


19 /* ファ イル の 1 文字 修正 サン プル で す 

2 の int ai,bi , po 

39 str as,bs,cs,ds,che1,ohe2 , syu1 ,syu2 

4 の 9 soreen 2,9,1,1 

59 oc1s 

69 1input "ファ イル 名 を 入力 し て くだ さい --->?2"jas 
79 ai=fopen(as, "oc") 

8 の 9 while -1 


39 print "”aoe' を 入力 する と 一 旦 フ ァイル を クロ ー ズ し ます " 
199 1input “文字 や 文字 列 を 入力 し て くだ さい --->?"jbs 

110 /* chr$(13) = cr,ohr$(19) = 1f,chr$(26) = ctr1]+z 

129 if bs="aoce" then bs=bs+ohr$( 26 ) : break 

1309 bs=bs+chr$(13)+ohr$( 106 ) 

1409 fnrites(bs,ai ) 


159 endwhile 

169 forites(bs ,ai ) 

179 folose(ai ) 

189 /* update 

199 cls 

299 1input "修正 は あり ます か ?<y/n>---> "jche1 

219 if che1="n" then end 

220 1input "修正 後 の デ ー タ を 格納 する ファ イル 名 を 入力 し て くだ さい ー--->?"jba 
239 ai=fopen(as, "re" ) 

249 bi=Ffopen(bs,"c") 


25 の 9 repeat 

269 cls 

270 freads(ocs,ai ) 

280 print os 

2909 1ength=strlen(cs ) 

399 1input "この 中 に 修正 する 文字 は あり ます か ?<y/n>---> "johe1 

319 if che1<>" ャ y" then { 

320 cs=os+ohr$(13)+ohr$(10) 

339 fnrites(os,bi ) 

340 continue} 

359 while -1 

369 1input "修正 し た い 1 文 字 を 入力 し て くだ さい --->?"jsyu1 

379 po=strohr(os,asc(syu1 ) ) 

380 if po=-1 then print "該当 文字 が あり ませ ん !!":continue 

399 1input "修正 後 の 1 文字 を 入力 し て くだ さい --->?"jsyu2 /* 削除 の 場合 
は この 行 を 取る 

499 ds=os 

419 cs=1eft$(os,po)+syu2+right$(cs,1ength-po-1) /* 削除 の 場合 は この 行 
の "+syu2" を 取る 

420 prin も "次 の よう に 修正 し ます " 

4309 print cs 

440 1inpu も t "よろ し いで すか ?<y/n>---> "jche2 

459 if che2<>"n" then { 

460 CSs=Cs+ohr$(13)+ohr$(19) 
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2.5 その 他 の 機能 


4709 furites(os,bi ) 
489 break} 

49 の cs=ds 

5909 print os 

519 endwhile 

529 unti1 feof(ai ) =-1 

539 cl1s 


549 print "修正 前 の ファ イル の 内 容 と 修正 後 の フ ァイル の 内 容 を 表示 し ます " 
559 fseek(ai,9,9) 
569 fseek( bi , 9,0 ) 


579 print "修正 前 の ファ イル の 内 容 を 表示 し ます !" 


589 repeat 
590 freads(os,ai ) 
699 print os 


619 unti1] feof(ai ) =-1 

629 print "修正 後 の フ ァイル の 内 容 を 表示 し ます !" 
639 repeat 

649 freads(ds,bi ) 

659 print ds 

669 unti1] feof (bi ) =- 1 

679 foc1osea11( ) 

689 end 


2.5。.3 子 プ ロ セ も セス 


X-BASIC に は 、 Human68k の コマ ンド を 実行 する コマ ンド が あり ます 。 その た め 、 フロ ッ ピ ー デ 
ィ ス ク の フォ ー マ ッ ト や コピ ー、 ス クリ ー ン エディ タ ED を 使っ た テキ スト ファ イル の 編集 な ど を 、 
X-BASIC を 終了 する こと な く 実 行 で きま す 。 

入力 待ち の 状態 で "! "に 続け て Human68k の コマ ンド を 入力 し て リタ ー ン キー を 押し ます 。 ド ラ 
イブ B の フロ ッ ピ ー デ ィ ス ク を フォ ー マ ッ ト す る の で あれ ば 、 次 の よう に 入力 し ます 。 


Iformat b: 
Human68k で の コマ ンド の 実行 が 終了 する と 、 
BASIC へ 戻り ます 、 何 か キー を 押し て くだ さい 。 


と いう メッ セー ジ が 表示 され ます 。 キ ー を 押す と 、X-BASIC に 戻り ます 。 
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第 3 草 X-BASIC の 文法 


この 章 は 、 ま だ 説明 し て いな い XX-BASIC の 文法 に つい て まとめ て あり ます 。 


3.1 X-BASIC で 使用 で きる 文字 と 特殊 記号 


X-BASIC で 使用 で きる 文字 は 、 英 文字 (大 文字 、 小 文字 )、 数 字 、 カ タカ ナ 、 ひ ら が な 、 特 殊 記 
号 、 漢 字 、 そ し て 制御 文字 か ら 構 成 さ れ て いま す 。 文 字 に つい て の 詳細 は 、 資 料 編 の 「 キ ャ ラク タコ 
ー ド 表 」 を 参照 し て くだ さい 。 


半角 文字 と 全角 文字 

通常 X-BASIC で は 、 カ ー ソ ル 1 つ 分 の サイ ズ を も つ 半 角 文 字 を 扱い ます 。 キ ー ボ ー ド か ら コ マン 
ド を 与え を た り 、 プロ グラ ム を 記述 する に は 半角 の 英 数 字 を 使い 、 カ タカ ナ や ひら が な (全角)、 漢字 ( 全 
角 ) は 文字 列 デ ー タ と し て 使う も の と 考え て くだ さい ぃ い 。 


特殊 記号 

使用 で きる 文字 の 中 で も 、 特 殊 記 号 と 呼ば れる 文字 は それ ぞ れ 特別 な 意味 を 持っ て いま す 。 特殊 記 
号 の 使い 方 に つい て は 、 第 4 章 「 リ ファ レン ス 」 で 必要 な た び ご と に 説明 し ます が 、 こ こ で は それ ぞ 
れ の 意味 を まとめ て 説明 し ます 。 な お 、 特 殊 記 号 の うち 、 演 算 子 に つい て は 、 3 . 4 「 式 と 演算 」、 書 
式 指定 文字 に つい て は 第 4 章 の print 命令 で 説明 し ます 。 


( 空 白 ) プ ブログ ラム 中 の 命令 語 と 命令 語 、 変 数 名 な どの 区 切り と し て 使い 、 ま 
た プロ グラ ム を 見 や すく する た め に 入れ る こと が で きま す 。 た だ し 、 
予約 語 (資料 編 「 予 約 語 表 」 参 照 ) の 中 に は 空白 を 入れ る こと は で きま 
せん 。 ま た 、 文 字 定 数 (3 . 3 「 定 数 」 参照) の 中 の 空白 は 文字 と し て の 
意味 を 持っ て いま す 。 文 中 の 空白 は プロ グラ ム の 実行 に は 影響 を 与 
ませ ん が 、 コ ンピュータ の メモ リ に は 空白 も 記憶 され ます 。 


1 (感嘆 符 ) チャ イル ド プ ロ セ スコ マン ド 。 第 4 章 child 命令 参照 。 
例 ) !dir 
"(91 用 待 ) 文字 列 を 囲み ます 。 


例 ) print "ABC" 


#( 番 号 記 号 ) float 型 属 性 文字 。 
例 ) print 3 ルン /4# 


(の 志和 下 中 当 ) 文字 デー タ を 囲ん で char 型 の 数 値 デ ー タ と し ます 。 
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( ) 括 弧 


。 (カン ジマ) 


ー!2x4 ワン) 


グ * ( 緑 線 と アス タリ スク ) 


2( コ 区 ) 


5 ( 表 き 所 ロジ ) 


? (疑問 符 ) 


[| ] 角 括弧 


{( ) 大 括 和 


3.1 X-BASIC で 使用 で きる 文字 と 特殊 記号 


例 ) char a='A' 


演算 の 優先 順位 を 変え た た り 、 関 数 の 引数 リス ト を くく っ だ た りす る の に 
つか いま す 。 
例 ) print (1 十 1)*3 

a 三 DoW(2 .39 


デー タ を 複数 個 指 定 す る と き に 、 その 区 切り と し て 使い ます 。 print 命 
令 で 使わ れ た 場合 に は 、 8 桁 ご と に 区 切っ て 表示 され ます 。 
例 ) print "a""D'c" 


数 値 の 範囲 を 指定 する と き に 使い ます 。 
例 ) jist 命令 で 表示 する 行 の 範囲 を 指定 する と き 、 
list 100 一 200 
と すれ ば 、100 行 か ら 200 行 まで が 表示 され ます 。 


注釈 文 の 先頭 に 置き ます 。 第 4 章 rem 命令 参照 。 
例 ) ノ * ま コノ ギョ ウ ハハ コメ ント デス 


マル チ ス テー トメ ント の 区 切り と し て 使い ます 。 
例 ) a=2 十 3:print a 


デー タ を 複数 個 指定 する と き に 、 その 区 切り と し て 使い ます 。 print 命 
令 で 使わ れ た 場合 に は 、 デ ー タ は 前 の デー タ に 続い て 表示 され ます 。 
御 ) mt "Aa"}) "27e" 

また func 一 endfunc で 定義 きれ る 関数 名 に 続く 引数 リス ト 内 の 変数 
名 に 特別 に 型 を 指定 する の に 使い ます 。 

例 ) func foo(iifloat ,jiint) 


print 命令 の 代わ り に 使い ます 。 
例 ) ? 25*12 


str 型 変数 の 文字 バッ ファ サイ ズ を 指定 し ます 。 第 4 章 str 命令 参照 。 
例 ) dim str a(10)[20] 


複数 行 に わた っ て デー タ や 文 を 記述 する の に 使い ます 。 


例 ) 10 dim sr c(1) 三 で ag" 
20 26”) 
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3.2 X-BASIC の 変数 や 定数 な ど で 扱 う デ ー タ 


X-BASIC の 変数 や 定数 な ど で 扱う デー タ は 、 次 の よう に 分 類する こと が で きま す 。 


半角 文字 
(sr) 一 | 
全角 文字 (ひら が な 、 漢 字 ) 
デー タ | バイ ト 整 数 (char 型 ) 
人 各 ーー ゴ | 4 バイ ト 整 数 (int 型 ) 


文字 列 (str 型 ) 

255 文 字 以 内 の 文字 を つない だ デー タ で す 。 文字 列 に は 、 双 -BASIC で 使用 で きる 文字 な ら ば どれ で 
も 使う こと が で きま す 。 た だ し 、 文 字 列 を 算術 演算 (3 . 4 「 式 と 演算 」 参照) に 使う こと は で きま せ 
ん 。 


数 値 
数 値 は 算術 帝 算 を 行う こと が で きる デー タ で す 。 数値 に は 整数 型 と 実数 型 と が あり 、 数 値 の 取る 値 
は それ ぞ れ で 異な り ま す 。 


整数 (int 型 ) 

4 バイ ト (32 ビ ッ ト ) で 表現 きれ る 符号 付き 整数 で 、 一 23 か ら 2ー1 (一 2,147,483,648 か ら 
2,147 ,483,647) ま で の 値 を 使用 で きま す 。 整 数 型 の 数 値 を 使う 演算 は 、 実 行 時 間 が 短く て すみ ます 。 
X-BASIC は 整数 型 を 基本 に し て いる の で 、 特 に デー タ 型 を 指定 し な いと き は 整数 int) 型 に な り ま 
す 。 


整数 (char 型 ) 
1 バイ ト (8 ビッ ト ) で 表現 きれ る 符号 無し の 整数 で 、0 か ら 255 の 値 を 使用 で きま す 。 キャ ラク タコ 
ー ド な ど 、 1 バイト 単位 の デー タ 制 御 に 最も 有効 で す 。 


実数 (float 型 ) 

実数 は すべ て 倍 精 度 実数 で 、 8 バイト (64 ビ ッ ト ) で 表現 され ます 。 

1 ビット の 符号 部 ( 正 、 負 ) と 11 ビ ッ ト の 指数 部 及び 52 ビ ッ ト の 仮数 部 か ら 構成 され て いま す 。 この 
結果 表現 で きる 絶対 値 は 、1.1125369292536 セ 一 308 か ら 3.5953862697246E 十 308 と な り ま す 。 

また 、 数 値 型 デー タ は 必要 に 応じ て 、 そ の 型 を 他 の 型 に 変換 する こと が で きま す 。 た だ し 、 文 字 型 
と 数 値 型 の 間 で この 変換 を 行う に は val、str$ 、asc お よび chr$ の 各 関 数 を 使い ます (第 4 章 参 
照 )。 

型 の 変換 は 、 次 の 規則 に し た が っ て 行わ れ ま す 。 
@ 数 値 を 異な る デー タ 型 の 数 値 変数 に 代入 する 場合 、 数 値 は 代入 先 の 数 値 変数 の デー タ 型 に 変換 され 

ます 。 
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3.3 定数 


@ デー タ 型 の 異な る 数 値 を 使っ た 演算 で は 、 デ ー タ 型 の 低い 方 が 高い 方 の デー タ 型 に 変換 きれ て 演算 
が 行わ れ ま す 。 

@ 論 理 演算 の 場合 、 扱 われ る 数 値 は すべ て 整数 型 に 変換 され 、 結 果 は 整数 (int 型 ) で 得 ら れ ま す 。 

@ 実数 が 整数 に 変換 され る 場合 は 、 小 数 点 以下 は 切り 捨て られ ます 。 こ の と き 、 切 り 捨 て た 結果 が 整 
数 型 で 扱え る 範囲 を 越え を て いれ ば エラ ー と な り ま す 。 


3.3 定数 


定数 と は 、 そ れ ぞ れ に 固有 の 値 を 持っ た デー タ の こと で す 。 定数 の 書き 方 は 、3. 2 で 述べ た デー 
タ 型 に よっ て 異な り ま す 。 


d。9、1 玉 施 定 業 


文字 定数 は 、 文字 列 を 引用 符 ( " ) で 囲ん で 表し ます 。 文字 列 の 長き は 255 文 字 以 内 で な けれ ば な り 
ませ ん 。 ま た 、 数 字 を 引用 符 で 囲む と 文字 列 と みな され 、 算 術 宮 算 に 用 いる こと は で きま せん 。 文 字 
列 は 常に キャ ラク タコ ー ド が 0 で 終わ り ま す 。 は じ め の キャ ラク タコ ー ド が 0 の も の は ヌル スト リン 
グ (null 文字 、 無 文字 列 ) と し て 扱い ます 。 


例 )"THANK YOU" 
"3.14159265” 


3.3.2 整数 型 定数 
整数 型 の 定数 に は 、 以 下 の 4 つの 形式 が あり ます 。 


@ 10 進 形式 
int 型 な ら 一 2,147,483.648 か ら 2,147,483.647 ま で 、char 型 な ら 0 か ら 255 ま で の 整数 で す 。 負 の 
整数 の 場合 、 数 値 の 前 に 必ず マイ ナス 符号 (一 ) を つけ な けれ ば な り ま せん が 、 プ ラス 符号 ( 十 ) は 省略 
CS: ま 9 
例 ) 0 
ー123 


@ 8 進 形式 
先頭 に &0( ま た は &o) を つけ て 8 進数 (0 一 7 ) を 並べ た も の で す 。 男 囲 は int 型 で は &O 0 一 
037777777777 ま で です 。 必 037777777777 一 &020000000000 ま で は 仙 の 数 で 、 一 1 か ら 一 


2.147.483,648 に 対応 し ます 。 


例 )&012345……… 10 進 数 で は 5349 
&O37777777777……:10 進 数 で は 一 1 


char 型 で は 、&O 0 一 &0377 が 0 一 255 に 対応 し ます 。 
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@ 16 進 形式 

先頭 に 交 是 (また は &h) を つけ て 16 進 数 ( 0 一 7 、 AF また は ョ aーf) を 並べ た も の で す 。 範囲 は int 
型 で は &H 0 一 &HFFFFFFFF まで で す 。 層 HEFFFFFFFF 一 &H80000000 ま で は 負 の 数 で 、 一 1 
か ら 一 2,147 ,483.648 に 対応 し ます 。 


例 )&H100………10 進 数 で は 256 
&HFFFFFFFF-……・10 進 数 で は 1 


char 型 で は 、&H0 一 科 HFF が 0 255 に 対応 し ます 。 


@ 2 進 形 式 

先頭 に を B (また は &b) を つけ て 2 進数 (0 か 1 ) を 並べ た も の で す 。 範囲 は int 型 で は &B 0 一 
立 B11111111111111111111111111111111 (32 桁 ) まで で す 。&B11111111111111111111111111111111 
ー 立 B10000000000000000000000000000000 ま で は 負 の 数 で 、 一 1 か ら 一 2,147.483 .648 に 対応 し ま 
する 


例 )&B100000000……-10 進 数 で は 256 
&B1111...(32 桁 )……:10 進 数 で は 一 1 


char 型 で は 、&B 0 一 奴 B11111111 が 0 一 255 に 対応 し ます 。 


* 注 意 ・ 2 進 有 形式 、8 進 形式 、16 進 形式 で 入力 され た 数 値 は 、print や Iprint 命令 で 出力 する と 、10 
進 形 式 で 出力 され ます 。10 進 以外 の 形式 で 出力 する と き は 、 そ れ ぞ れ bin$ 、oct $ 、hex $ を 使っ て 
文字 列 と し て 出力 し て くだ さい 。 


@ その他 


"(アポ スト ロフ ィ ) で 囲ま れ た 1 文字 の 文字 デー タ は 、 そ の キャ ラク タコ ー ド を 値 と し た char 型 
の 数 値 と な り ま す 。 


例 )!A……… char 型 の 65 
3.3.3 実数 型 (浮動 小数 型 ) 定 数 
実数 型 の 定数 に は 、 以 下 の 3 つの 形式 が あり ます 。 


@ int 型 の 範囲 を 超え る 数 値 
@ 14 桁 以内 の 数 値 と (また は e) を 使っ た 指数 表示 の 組み 合わ せ (E また は e の 都 囲 は 土 308) 
@ 最 後に . (ピリ オド ) か #( 番 号 記 号 ) が 付け られ た 数 値 


例 )3000000000 
1235E-20 
426# 
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3.4 式 と 演算 


式 と は 、 演 算 ( 計 算 ) の 文法 を 示す も の で あり 、 定 数 や 変数 を 演算 子 (計算 に 使う 特殊 記号 の こと ) で 
結ん だ も の で す 。 式 の 演算 結果 は 1 個 の 数 値 ま た は 文字 列 に な り ま すか ら 、 単 に 数 値 や 文字 だ け の も 
の も 式 と 呼び ます 。 


例 ) "BASIC" 
10 十 3/5 
2 
a 十 b/c 一 d 


X-BASIC の 演算 は 、 次 の 5 つ に 分 けら れ ま す 。 


@ 算術 演算 
@ 関係 演算 
@ 論 理 演算 
@ 関 数 演算 
@ 文字 列 演算 


以下 に これ ら の 演算 に つい て 説明 し ます 。 
3.4.1 算術 演算 


算術 足 算 子 に は 次 の よう な も の が あり ます 。 な お 、 算 術 式 の 中 に 文字 定数 や 文字 変数 が 入っ て は い 
け ま せん 。 


演算 子 演算 例 

寺 マイ ナス 符号 ま 

* ネ 、/ 乗算 、 除 算 X ネ ※ y、X/Y 

\、 mod 整数 の 除算 、 剰 余 x き y、x mod y 
二 、 一 加算 、 減 算 区 士 六 メー ザ 

shr 右 シ フト xshry 

shI 定 ジ ンド x shl y 


演算 の 優先 順 詳 も 、 こ の 順番 に な り ます 。 順 序 を 変更 し た いと き に は 括弧 ( ) を 使え ば 、 括 弧 内 の 
演算 子 は 他 の 演算 子 よ り 先 に 実行 され ます 。 


参考 
@ 整数 で の 演算 
変数 や 定数 の と き と 同 様 に 、 演 算 で も デー タ 型 を 意識 し な いと 予想 外 の 結果 に な る こと が あ 
り ます 。 X-BASIC で 扱う 数 は 、 デ ー タ 型 が 指定 され て いな いと すべ て 整数 Gnt 型 ) と 見 な され 
ます か ら 、 
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? 178 

の 答え は 0 と な り ま す 。 こ れ を 実数 の 演算 と し て 扱う に は 、 
? 1.0/3( ま た は ? 1#73) 

ある い は 
? 1/3.0( ま た は ? 173 お 


の よう に し な けれ ば な り ま せん 。 


@\ と mod 
整数 の 除算 で は 、 プ の か わり に ぎ を 使っ て 割り 切れ な か っ た 場合 の 答 の 小数 点 以下 を 切り 捨 
て る こと が で きま す 。 扱 う 数 値 が 実数 の 場合 は 、 演 算 が 実行 され る 前 に 小数 点 以下 が 切り 捨て 
られ ます 。 また 、 余 り を 求め た いと き に は mod を 使い ます 。 この 場合 も 、 扱う 数 値 が 実数 の 場 
合 は 、 演 算 が 実行 され る 前 に 小数 点 以下 が 切り 捨て られ ます 。 


例 )print 10 \ 3 
3 (10/3= 3 sosoee 1 ) 
print 10 \ 2.5 
5 (10/2= 5…… 0 ) 
print 13.3 mod 4 
1 (13/4= 3…… 1 ) 


@ 0 で て の 除 算 
数 値 を 0 で 割っ た と き に は 、~0 に よる 除算 が 行わ れん まし た ” と いう エラ ー メ ッ セ ー ジ が 表示 
され 、 プ ログ ラム を 中 断 し ます 。 0 に 対し て 負 の べき 乗 を 行っ た 場合 も 同様 で す 。 


@ オーバー フロ ー( 桁 あふ れ ) 
代入 や 演算 の 結果 が 、 そ の 変数 の 型 の 中 で 表現 で きる 範囲 を 越え た 場合 、 桁 あふ ね れ が お こり 
ます 。 こ の 場合 、 パオ ー バ ー フ ロー し まし た / と いう エラ ー メ ッ セ ー ジ が 表示 され 、 プ ログ ラム 
を 中 断 し ます 。 


@ shr と shI( シ フト 演算 ) 
普通 の 算術 で は 使わ れ ま せん が 、 2 進数 を 扱う コン ピュ ー タ の 世界 で は 多用 され ます 。 整数 
値 を 2 進 形式 の ビッ ト 列 と 考え ん 、 そ の ビッ ト 列 を ある 回 数 右 や 左 に 移動 (セフト ) さ せる こと を 

シフ ト 演 算 と いい ます 。 


例 )? 6 shr 2 
1 (&b00000110 一 &b00000001) 
? 3 shIl 3 
24 (&b00000011 つ &b00011000) 
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シフ ト 後 の 杵 に は 、 0 が 入り ます 。 


3.4.2 関係 演算 

関係 演算 子 は 、 2 つの 数 値 ま た は 2 つの 文字 列 を 比較 する と き に 用 いま す 。 関 係 演算 の 結果 は 、 真 
(1 )、 偽 (0 ) で 返さ れ 、if 命令 な ど で プ ログ ラム の 流れ を 変え る の に 用 いら れ ま す 。 以 下 に 、 関係 
演算 子 の 意味 と 例 を あげ ます 。 


関係 演算 子 内容 例 
三 左辺 と 右辺 が 等 し い メニ y 
く > 左辺 と 右辺 が 等 し く ない x く う Y 
Cce 右辺 より 左辺 が 小さ い メ く y 
の 右辺 より 左辺 が 大 きい x>y 
く ニ 右辺 より 左辺 が 小さ いか また は 等 し い < 呈 有 
> デー 右辺 より 左辺 が 大 きい か また は 等 し い メン ニーy 


例 )if x ニ 0 then print "A" 
(も し x が 0 だ っ た ら 、"A" を 表示 ) 
if  a 十 b く >0 then  x 三 a 十 b 
(も し a 十 b が 0 で な か っ た ら 、x に a 十 b の 値 を 代入 せよ ) 


詳し く は 、 第 4 章 を 参照 し て くだ さい 。 
3.4.3 論理 演算 


論理 演算 子 は 複数 の 条件 を 調べ た り 、 ビ ッ ト 操 作 や ブー ル 演 算 を 行っ た りす る の に 用 いま す 。 論 理 
演算 の 結果 は 、 ビ ッ ト ご と に 0 また は 1 で 返さ れ ま す 。 各 論理 演算 の 内 容 を 以下 に 示し ます 。 


not( 否 定 ) 
X not x 
1 0 
0 1 
and( 論 理 積 ) 
X y x and y x y 
1 1 1 
1 0 0 
0 1 0 
0 0 0 
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つど つら ビビ ※ 
つ ビビ つど ビ に 


xor( 排 他 的 論理 和 ) 
X XxOor y 
0 


94 
1 1 
1 0 1 央 
0 1 1 
0 0 0 


if 命令 で は 、 こ れ ら の 論理 演算 子 を 使っ て 、 複 数 の 条件 を 判断 する こと が で きま す 。 


例 )f x く 0 or 99<x then x 三 0 
(x が 負 の 数 また は 99 よ り 大 きけ れ ば 、x に 0 を 代入 する ) 
if 0 く x and x く 100 then x 三 0 
(x が 正 の 数 で し か も 100 よ り 小 さけ れ ば 、x に 0 を 代入 する ) 
if not(a= ニ 0) then x ニ 0 
(a が 0 で な けれ ば 、x に 0 を 代入 する ) 


詳し く は 、 第 4 章 を 参照 し て くだ さい 。 


用 語 の 説明 
@ ビ ッ ト 
コン ピュ ー タ の 扱う デー タ の 最小 単位 。 1 ビッ ト で 0 か 1 か の 2 つの 状態 を 表し ます 。 
@ ビ ッ ト 操 作 
ビッ ト の 並び の 中 の 任意 の ビッ ト を ON/OFF する (1 に し た り 0 に し た りす る ) よ うな 操 
作 を いい ます 。 
@ ブール 演算 
イギリス の 数 学者 ブー ル が 唱え た 論理 演算 。 普 通 の 演算 が 数 値 を 扱う の に 対し て 、 真 か 偽 か 
を 扱う 演算 で す 。BASIC で は 、 真 は 0 以外 、 偽 は 0 と いう 値 を 取り ます 。 


3.4.4 関数 演算 


関数 と は 、 基 本 的 に は 指定 され た デー タ に 対し て 、 あ る 決ま っ た 処理 を 行う も の で 、 そ の 処理 の 結 
果 を 返す も の で す 。 

X-BASIC の 関数 に は 、 sin や sqr な どの 数 値 を 扱う も の や 、chr $ や left$ な どの 文字 列 を 扱う も 
の な ど が あり ます 。 ま た 、 最 初 か ら 定 義 さ れ た も の で は な く 、 プ ログ ラマ が 自由 に 関数 を 定義 する た 
め の 命令 (func 一 endfunc) も 持っ て いま す 。 
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これ ら の 関数 に つい て は 、 第 4 章 で 詳し く 説 明 し ます 。 


参考 
X-BASIC の 命令 は 、 大 きく 3 つ に 分 ける こと が で きま す 。 
@ コ マン ド list、new な ど が その 代表 で 、 主 に プロ グラ ム を 書い た り 編 集 し た りす る た 


め の 命令 で す 。 ダ イレ クト モー ド で の み 使 用 する 命令 で す 。 
@ ス テー トメ ント print、i な ど が その 代表 で 、 主 に プロ グラ ム 中 で 核 と な る 命令 で す 。 
@ 関 数 sin、 coS な ど が その 典型 で 、 与 た られ た デー タ に 対し て 、 何ら か の 処理 を 行 
いそ の 結果 を 返す も の で す 。 
な お 、 関 数 名 と 引数 を くく る 左 括弧 と の 間 は あけ な いで くだ さい 。 


3.4.5 文字 列 演算 


@ 文字 列 の 連結 
文字 列 は 、 演 算 子 十 を 使っ て つなげ る こと が で きま す 。 だ た と えば 、 


10 str a デ "ハル ガ ":str b ニ "キタ ":str c 
20 c=a 十 b 

30 print c 

40 end 


この プロ グラ ム を 実行 する と 、 画 面 に は 「^ ハ ル ガ キ タ 」 と 表示 され ます 。 


@ 文字 列 の 比較 

文字 列 も 、 数 値 の 比較 に 使わ れる も の と 全く 同じ 関係 演算 子 ( 三 、 く 、>、 く >、 く = テ 、>) を 用 いて 比 
較 す る こと が で きま す 。 

文字 列 の 場合 、 そ れ ぞ れ の 文字 列 の 先頭 か ら 1 文字 ずつ 文字 を 比較 し ます 。 両者 が 全く 同じ 文字 列 
の 場合 は 、 そ の 2 つの 文字 列 は 等 し く な り ま す が 、 1 文字 で も 違っ た 場合 は 、 そ の 文字 の キャ ラク タ 
コー ド (資料 編 「 キ ャ ラク タコ ー ド 表 」 参 照 ) の 大 きい 方 の 文字 列 が 大 きい と 判断 され ます 。 ま た 、 文 
字 列 の 一 方 が 短く て 比較 が 途中 で 終わ っ た 場合 は 、 短 い 文字 列 の 方 が 小さ いと 判断 され ます 。 

な お 、 文 字 列 の 比較 に お いて は 、 空 白 な ども 意味 を 持ち ます か ら 注 意 し て くだ さい 。 


例 )"AB" < "BC" 
"BC" > "AAAP 
CATY る < *CATSP 
"PEN” > " PEN" 
"em > "CM 
"BASIC" = "BASIC" 


文字 列 を 比較 する こと に よっ て 、 文 字 列 の 内 容 を 調べ た り 、 文 字 を アル ファ ベッ ト 順 に 並べ か えた 
りす る の に 利用 で きま す 。 
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3.4.6 演算 の 優先 順位 
演算 は 次 の 順位 に よっ て 行わ れ ま す 。 


1) カッ コ で 囲ま れ た も の 8) shr、shl 

2) 関数 9) 関係 演算 子 (一 、 く 、> な ど ) 
3) マイ ナス 符号 (一 ) 10) not 

4) *、/ 11) and 

5) 全 12) or 

6) mod 13) xor 

紗 。 キー 


の 
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書 式 命令 関数 の 書き 方 で す 。 
< > で 囲ま れ た 項目 は 、 必 要 と され る 引数 や デー タ で す 。 
[ 〕 で 囲ま れ た 項目 は 、 省 略 可能 で す 。 
。 は 、 同 様 に 繰り 返し 、 引 数 や デー タ を 与え る こと を 表わし ます 。 
これ 以外 の 文字 ( 務 約 語 、{ })、[ ] な どの 記号 類 ) は その まま 入力 し な けれ ば な り ま 
せん 。 
コマ ンド や ステ ー ト メン ト な ど は 、 原 則 と し て 命令 名 と デー タ の 間 に は 、 空 提 を 入れ 
て くだ さい 。 ま た 、 関 数 名 と 引数 を くく る 左 括弧 の 間 に は 、 空 白 を 入れ な いで くだ さ 


い 。 
省略 で きる 命令 や 関数 の 書き 方 で す 。 な お 、 引 数 、 括弧 な ど は 省略 で きま せん 。 


引 数 関数 が 原則 と し て どう いう 型 の 引数 を 必要 と する か を 表わし て いま す 。 
数 値 型 と し て int、char、float、 文 字 型 と し て str の 4 つの デー タ 型 が あり ます が 、 複 
数 の 種類 の 引数 を 取る 関数 に つい て は 、 そ れ ぞ れ の デー タ 型 に 応じ て 括弧 で くく っ て 
まとめ て あり ます 。 数 値 型 で あれ ば 何で も よい 場合 は 数 値 型 と 表記 し て いま す 。 ま た 、 
引数 が 特に 変数 名 や 配列 名 (配列 の 場合 は 次 元 も 明記 し て いま す ) で な けれ ば な ら な 
い 場 合 (定数 、 式 な ど が 引数 と な ら な い ) は 、 そ の よう に 明記 し て いま す 。 


戻り 値 すべ て の 関数 に つい て 、 そ の 戻り 値 の 型 が 書い て あり ます 。int、char、float、str、 
お よび 意味 を 持た な い 戻 り 値 (戻り 値 が 存在 し な い 場合 も 含む ) と し て void、 の 5 つの 
型 が あり ます 。 


機 能 各 命 令 や 関数 の 機能 お よび 、 引 数 の 意味 な ど を 説明 し て いま す 。 
づつ 関連 し た 命令 や 、 文 法 な ど 参 考 に な る も の を 挙げ て あり ます 。 


簡単 な サン プル プロ グラ ム や 用 例 で す 。 
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abs(n) 

float 

float 

数 値 n の 絶対 値 を 返し ます 。 

19 /* abs sample 

2 int ai,bi ,oi ,di 

39 float af 

49 soreen 1,3,1,1 

59 vpage(1) 

69 1ine(9,255,511,255,.65535,&HFFFTF ) 
7 の fo ai=1 も Q 5 

89 for bi= の to 511 

909 af=(2*pi( )*bi ) /512*ai 
190 ci=255-abs(sin(af )*200) 
1109 di=rnd()*65535 

1209 pSset(bi,ci,di ) 

130 mext 

149 next 

150 end 
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APAGE GRAPH 


書 式 apage (pa) 
引 数 char 
戻り 値 void 


機 能 グラ フィ ッ ク 画 面 の アク ティ ブ ペ ー ジ pa( グ ラフ ィ ッ ク 画 面 で 実際 に 読み 書き する ペ 
ー ジ ) を 指定 し ます 。 ペー ジ 番 号 は 0 一 3 で 、 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サイ 
ズ 及 び 色 モー ド に より ます 。 


グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド に よる アク ティ ブ ペ ー ジ pa の 値 の 範 


囲 
1024X1024(16 色 モー ド ) …… 0 
512 光 512(16 色 モー ド ) ……… 0 
512X512(256 色 モー ド )………0、1 


512X512(65536 色 モー ド )…… 0 


home、screen、VDage、window 


ユ 
19 /* apage sample 


2 の int ai,bi ,oi 

3 の 9 screen 1 ,1,1,1 

4 の 9 vpage(&B1111) 

5 の for ai= の 9 to 8 

69 /* aotive page(0) 


79 apage(09) 

89 bi=rnd( )*15 

99 fi11(59,59,299,209,bi ) 

199 symbo1 (219,50, "アク ティ フ * へ "ーー シ * 9 "1,1 1,」bi , 0 ) 
119 pause( ) 

129 /* aotive page(1 ) 

1309 apage(1) 

149 bi=rnd( )*15 

159 fi11(199,10 ひ 9,259,259,bi ) 

169 symbo1( 269,199, "アク ティ ブフ "へ"ー シ * 1 7 1 1,1,bi ,9 ) 
170 pause( ) 

189 /*# aotive page(2) 

199 apage(2) 
299 bi=rnd( )*15 
219 fi11(159,159,399,399,bi ) 

220 sym ち boT( 310.150。 "アク ティ イフ” へ "ニシ" 2 01 1 .1。b は 。 の ) 
2309 pause( ) 

24 の 9 /* active page(3) 
259 apage(3) 

269 bi=rnd( )*15 
2709 fi11(299,299,359,359,bi ) 

289 syYmbo1 (369,29 の 9 の," アク ティ フ *" へ "ー シ * 3 "71.1,1.bi, の 9) 
290 pause( ) 

399 next 

319 end 


329 funoc pause( ) 

339 for oi= の to 1909 
349 next 

359 endfuno 
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ASC 


に 


asc (st) 
Str 
int 


文字 列 st の 先頭 文字 の キャ ラク タコ ー ド を 返し ます 。 


St が null 文 字 の 場合 は 0 を 返し ます 。 文字 と キャ ラク タコ ー ド の 対応 に つい て は 、「 キ 


ャ ラク タコ ー ド 表 」 を 参照 し て くだ さい 。 


chr$ 、「 キ ャ ラク タコ ー ド 表 」 


/* as Sample 
str as,bs 


print aso( "axyz") 
print aso(as ) 

print aso(bs ) 

print aso(as)*aso( bs ) 
end 


atan(n) 


float 


float 


数 値 n の 逆 正 接 (アー クタ ンジ ェ ン ト ) を 返し ます 。 一 ヶ /2 か ら ヶ /2 ま で の 値 を 返し ます 。 


/* atan sample 
ま 下 も a 邊 DD も Gi 
float af 
screen 1,3,1,1 
vpage(1) 
1ine(9,255,511,255,65535 ,&HFFEFF ) 
for ai=1 to 3 
for bi= の to 511 
af=bi-255 
ci=255-atan(af )*a1i*40 
di=rnd( )*65535 
pset(bi,oi,d ュ ) 
next 
me も 
end 
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+ 


標準 関数 


atof (st) 
Str 
float 


文字 列 st を float 型 の 数 値 に 変換 し ます 。st は 、float 型 の 数 値 に 変換 で きる 文字 
(+、 一 、0 一 9、 .、e、E) の 連続 で す 。 も し float 型 の 数 値 と し て 判定 で き な い 文字 
が ある と 、 そ こ で 変換 する の を や め ま す 。 

st の 先頭 の 空白 文字 や タブ 文字 は 無視 され ます 。 また 、 小 数 点 の 前 後に は 少な く と も 1 
つ 以 上 の 数 字 が 必要 で す 。 さら に 、 指数 表現 で は 、 e あ る い は E の 後ろ に 少な く と も 1 つ 
以上 の 数 字 が 必要 で す 。 

st が null 文 字 の 場合 は 、、 エ ラー と な り ま す 。 


変換 で きる 文字 列 st の 書式 は 次 の 通り で す 。 
[whitespace〕 【sign〕 〔digits] 〔. digits) 【e〔 ま た は E〕 【sign] digits) 


whitespace … の … 空白 文字 また は タブ 文字 で 無視 され ます 。 
Sign (19006:518Dm) 電 0 \ 十 々 また は ペー 
digits on …ororiroili の 1 つ 以 上 の 10 進 数 で 、 小 数 点 の 前 に 何 も な けれ ば 、 小 数 点 


の 後ろ に 少な く と も 1 つの 数 字 が 必要 で す 。 
指数 は e" また は PE” と 符号 を と も な っ た 10 進 数 で 構成 され ます 。 


ecVt、fcvt、gcvt 


19 /* atof sample 

2 の 9 float af,bf,cf 

39 str as,bs,cs[50] 

49 as="3999999999999" 

59 bs="-2.51235e-2" 

69 cs=" の 9.5192123542131543512312313453543543513213" 
70 af=atof(as ) 

89 bf=atof ( bs ) 

99 cf=atof (os ) 
199 print af*#2.5E+930# 


119 print bs+"+ リ + ォ Cg+ す "= リ :bf+of 
129 print bs+ "ネリ + す CS+" ニ リ ュ bf* ネ of 
139 end 
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ATOI 標準 関数 


書 式 atoi(st) 
引 数 str 


nm 


機 能 文字 列 st を int 型 の 数 値 に 変換 し ます 。st は 、int 型 の 数 値 に 変換 で きる 文字 (0 
ー9 、 十 、 一 ) の 連続 で す 。 も し int 型 の 数 値 と し て 判定 で き な い 文字 が ある と 、 そ こ で 変 


換 す る の を や め ま す 。 
st の 先頭 の 空白 文字 や タブ 文字 は 無視 され ます 。 また 、 st に は 少な く と も 1 つ 以 上 の 数 
字 が 必要 で す 。 


St が null 文 字 の 場合 は 、 エ ラー と な り ま す 。 


変換 で きる 文字 列 st の 書式 は 次 の と お り で す 。 
[whitespace] 【sign] digits 
whitespace ……… 空白 文字 また は タブ 文字 で 無視 され ます 。 
11 っ ーー ヾ エ ? また は パー タ 
柚 eeeei rm 1 つ 以 上 の 10 進 数 


= itoa 


1 /* atoi sample 
20 


int ai,bi 
39 str as,bs 
49 as="399999" 
59 bs="-512" 
69 ai=atoi(as ) 
7 の bi=atoi ( bs ) 


89 print as+"+("+bs+") = リョ ai+bi 
99 print as+"*("+bs+" )= リ jai* ネ bi 
199 end 
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AUTO 


機 


能 


auto 【< 行 番号 >]〔, < 増分 >〕 
a. 


プロ グラ ム 行 の 先頭 に 行 番号 を 自動 的 に 発生 させ ます 。 
< 行 番号 > も < 増分 > も 省略 で きま す が 、 こ の 場合 は 自動 的 に 10 が 採用 され ます 。 た と え 
ば 、 
auto 行 番号 は 10 を 先頭 に 20、30… と 付け られ ます (auto 10.10 と 同 
9 月 
auto 100 行 番号 は 100 を 先頭 に 110、120… と 付け られ ます 。 
auto ,5 行 番号 は 10 を 先頭 に 15、20… と 付け られ ます 。 


プロ グラ ム 中 に すでに 存在 する 行 と 同じ 行 番号 が 発生 し た 場合 に は 、 そ の 行 の 内 容 が 
すべ て 表示 され ます 。 こ の と き 、 何 も 入力 し な いで リタ ー ン キー を 押せ ば 、 そ の 行 の 
内 容 は 変わ り ま せん 。 

auto 機 能 を 解除 する と き は 、 [BREAK | キー (また は [CTRL|+| C | キー) を 押し ま 
す 。 解除 し た と き の プ ログ ラム 行 は メモ リ に 保存 され ませ ん 。 
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A PLAY AbN 


a play(na,sf,md[, Ing] ) 

数 値 型 一 次 元 配 列 名 (na) ,char (sf,md,Ing) 
Void 

指定 され た 配列 na の PCM デ ー タ を 再生 し ます 。 


na ……PCM デ ー タ を 格納 し て いる 数 値 型 一 次 元 配 列 名 
sf …… サン プリ ング 周波 数 


Om…3.9 民 生 2 
Neood 5.2KHz 
co 7.8KHz 
nb 10.4KHz 
oect 15.6KHz 


音声 を 再生 する 場合 、 原 則 と し て a rec 関 数 で 録音 し た と き の サ ンプ リン グ 周 
波数 sf を 使用 し て くだ さい 。 そ れ 以 外 を 使用 する と 、 録 音 し た 音声 を 正常 に 再生 


で きま せん 。 
> AS 音声 出力 モー ド (本 機 後面 の オー ディ オ 出 力 端子 か ら の 音声 信号 出力 
ml 
0…… 出 力 カッ ト 
] …… 左 出力 
2……- 右 出力 


3…… ス テレ オ 出 力 
Ing …… 再生 する 配列 na の 添字 0 か ら の 長き 
Ing の と りう る 値 は 、0 か ら 、 配 列 名 na で 宣言 され た 配列 の 添字 十 1 まで で す 。 
Ing を 省略 する と 、 す べ て の PCM デ ー タ を 再生 し ます 。 


19 /* a play sample 

2 int ai 

39 char ao 

4 の 9 dim ohar aoa(10923) 

59 /* read BEEP.SYS file 

69 ai=fopen( "a:\SYS\BEEP.SYS" , "rw" ) 


79 fread(aca,1924,ai ) 

89 fclose(ai ) 

99 /* beep 

199 repeat 

119 prin も t "beep 音 を ステ レオ 出力 で 発生 し ます !“ 
129 prin も t "サン プリ ング 周波 数 3.9KHz--- の " 

139 print "サン プリ ング 周波 数 5.2KHz---1" 

149 prin も t "サン プリ ング 周 濾 数 7.8KHz---2" 

159 print "サン プリ ング 周波 数 16.4KHz---3" 

169 prin も t "サン プリ ング 周波 数 15.6KHz---4" 

179 inpuot "サン プリ ング 周波 数 を 入力 し て くだ さい (9@---4) "jao 


189 unti1 ao<5 
199 a play(aoa, ac,3 ) 
200 end 
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A REC AUDIO 


a rec(na,sf 〔, Ing] ) 


| 引 数 | 数 値 型 一 次 元 配 列 名 (na) ,char (sf,Ing) 


戻り 値 | void 


機 能 旧 定 され た 配列 na に PCM デ ー タ . を 録音 し ます 。 
na ……… PCM デ ー タ を 格納 する 数 値 型 一 次 元 配 列 名 
Eo サン プリ ング 周波 数 
0………3.9KHz(1 秒間 に 消費 する メモ リサ イズ 1950 バ イト ) 
1……… 5.2KHz(1 秒間 に 消費 する メモ リサ イズ 2600 バ イト ) 
2…… 7.8KHz(1 秒間 に 消費 する メモ リサ イズ 3900 バ イト ) 
3………10.4KHz( 1 秒間 に 消費 する メモ リサ イズ 5200 バ イト ) 
4………15.6KHz(1 秒間 に 消費 する メモ リサ イズ 7800 バ イト ) 
Ing … 録 音 する 配列 na の 添字 0 か ら の 長き 
Ing の と りう る 値 は 、0 か ら 、 配 列 名 na で 宣言 され た 配列 の 添字 十 1 まで で す 。 
Ing を 省略 する と 、 す べ て の PCM デ ー タ を 録音 し ます 。 
19 /* a reo sample 
2 の int ai 
39 char ao 
39 str as 
59 dim char aca(65535) 
69 screen 2,9,1,.9 
7 の 9 /* reocord 
89 repeat 
939 print “録音 する た め の サ ンプ リン グ 周 波数 " 
199 print " (の =3。9KHz,1=5.2KHz ,2=7 .8KHz,3=19.4KHz,4=15.6KHz)" 
119 input “録音 する た め の サ ンプ リン グ 周 波数 を 入力 し て くだ さい (9---4)--->": 
き C 
129 unti1 ao<5 
130 / キ 
110 print "この 人 了 例 で は サン プリ ング 周波 数 に よっ て 次 の よう な 録音 時 間 に な り ま す " 
159 switoh ao 
169 case 9:print " サン プリ ング 周波 数 ( 3.9KHz)---> 約 33 秒 間 ":break 
176 case 1:print " サン プリ ング 周波 数 ( 5.2KHz)---> 約 25 秒 間 ':break 
189 case 2:print " サン プリ ング 周波 数 ( 7.8KHz)---> 約 16 秒 間 "':break 
199 case 3:print " サン プリ ング 周波 数 (19.4KHz)---> 約 12 秒 間 ":break 
269 case 1:print " サン プリ ング 周波 数 (15.6KHz)---> 約 .8 秒 間 " 
219 endsvitoh 
229 while as<> "マリ 
239 Brint "録音 し ます の で '"y*" キ -ー を 押し て くだ さい " 
249 as=inkey$ 
259 endrhi]e 
269 print "録音 中 で す " 
270 a reo(aoa,ao,65536 ) 
289 as="“" 
299 print "<test。da モ > と いう ファ イル に 録音 デー タ を セー ププ し ます " 
399 print "(すでに ある く ぐ く test.da も > と いう ファ イル は 消去 され ます の で 注意 し て く 
開き My) デ 
319 prjnt "セー プ し て も よい 場合 は 'y'* キ - を 押し て くだ さい " 
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329 as=inkey$ 
339 if as="y" then { 


349 ai=fopen("a:\test.dat", "oo" ) 
359 fnrite(aca,65536,ai ) 
369 fclose(ai ) 

379 } 


389 /* play 
399 repeat 


499 print "再生 する た め の サ ンプ リン グ 周 波数 
419 print " (9=3.9KHz,1=5.2KHz,2=7 .8KHz,3=19.4KHz,4=15.6KHz)" 
420 input "再生 する た め の サ ンプ リン グ 周 波数 を 入力 し て くだ さい (9---4)--->": 


aC 
439 until ac<5 
449 / キ * 


450 print "ここ で は 、65536 を さき ほど の 録音 時 間 と みな し て 、 


当 す る 値 (バイト 数 ) を 入力 し ます " 


再生 させ た い 時 間 に 相 


469 repeat 

479 input "再生 する た め の バ イト 数 を 入力 し て くだ さい (9---65536 )---> "jai 

480 unti] ai>-1 or ai<65537 

499 switoch ao 

590 case 9@:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->":" 3.9KHz 
"jai:break 

516 case 1:prin も t "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->"j" 5、2KHz 
"ia1i:break 

529 case 2:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->":" 7.8KHz 
"ia1:break 

539 case 3:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->":"10.4KHz 
"Yai:break 
2 case 4:print "再生 する た め の サ ンプ リン グ 周 波数 と バイ ト 数 --->"j"15.6KHz 
3 ぅ & み 1 

559 endswitoh 

569 as="“ 

579 while as<>"y" 

586 print "再生 し ます の で "YY" キー を 押し て くだ さい " 

599 as=inkey$ 


699 endwhile 


6 下 の ph も " 和 多 ゲ レオ 出力 で 再 牌 し まず " 


629 a play(aca,ac,3,ai ) 
639 end 


機 能 ビー プ 音 を 鳴ら し ます 。print chr$ (7) と 同じ 機能 で す 。 


19 /* beep sample 
20 


str as 
3 の 9 cls 
49 while as<>"b" 
59 1ocate 19,19 


69 print ")b'*- を 押す と ビー プ 音 


79 aS=inkey$ 
89 endwhile 

99 beep 

199 end 
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が 発生 し ます !" 


BG FILL SPRITE 


中 
由 


式 


測 
記 ! 


工 


エト 


CC 


bg fill(pg,pd) 
char (pg) ,int (pd) 
int 
旧 定 され た テキ スト ペー ジ pg を 、 指 定 さ れ た パタ ー ン デー タ pd で 埋め つく し ます 。 


DE テキ スト ペー ジ (0、1 ) 
1949( 欄 ooo な パパ ター ン デ ー タ (0 一 和 &HCFFTF) 


パパ ター ン デ ー タ pd は 、 次 の よう な ビッ ト 構 成 に な っ て いま す 。 (ビッ ト 12、 13 は 通常 0 
に な り ま す 。) 

ビッ ト 15……… 垂 直 反 転 (0 : 通常 、1 : 垂直 反転 ) 

ビッ ト 14……… 水 平 反 転 (0 : 通常 、1 : 水平 反転 ) 

ビッ ト 8 一 11… パ パレ ッ ト ブ ロッ ク pb(1 一 15) 

ビッ ト 0 一 7… ツ パ ター ンコ ー ド cd(0 一 255) 
垂直 反転 を 指定 する と 、 実 際 に 定義 され た パパ ター ン が 上 下 反 転 し て 表示 され ます 。 ま 
た 水平 反転 を 指定 する と 、 実 際 に 定義 され た パタ ー ン が 左右 反転 し て 表示 され ます 。 
パパ レッ トブ ロッ ク pb は 各 パ ター ン に 対し て 指定 する パレ ッ ト で 、 詳 細 に つい て は sp_ 
color 関 数 を 参照 し て くだ さい 。 
テキ スト ペー ジ 1 し か 使用 し な い 場 合 の パタ ー ン コー ド cd は 16X16 ド ッ ト バ パターン 
の 場合 、0 か ら 191 ま で の 値 を と る こと が で きま す 。 テキ スト ペー ジ 0 、1 と も 使用 す 
る 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 127 ま で の 値 を と る 
こと が で きま す 。 テ キス トペ ー ジ 0 、 1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 し 
な い ) 場 合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 、 0 か ら 255 ま で の 値 を 
と る こと が で きま す 。 
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リラ アァ アレ ジス 


BG GET SPRITE 


書 


測 | | 
塵 | | 難 


工 


GE 


式 


CC 


bg get(pg,xy) 
char 
int 


指定 され た テキ スト ペー ジ pg の 指定 され た 座標 か ら パ ター ン デ ー タ を 読み 出し ます 。 


地 6ee 座標 (0 一 63) 
yt…… Y 座 標 (0 一 63) 


読み 出さ きれ た パタ ー ン デー タ は 、 次 の よう な ビッ ト 構 成 に な っ て いま す 。 (ビット 12、 
13 は 通常 0 に な り ま す 。) 

ビッ ト 15……… 垂 直 反 転 (0 : 通常 、1 : 垂 直 反 転 ) 

ビッ ト 14 ……… 水 平 反転 (0 : 通常 、1 : 水平 反転 ) 

ビッ ト 8 一 11… ン パレ ッ ト ブ ロッ ク pb(1 ~15) 

ビッ ト 0 一 7… ツ パタ ー ン コー ド cd(0 一 255) 
垂直 反転 に な っ て いる 場合 は 、 実 際 に 定義 され た パタ ー ン に 対し て 上 下 が 反 転 し て 表 
示さ れ て いる こと を 意味 し ます 。 水 平 反転 に な っ て いる 場合 は 、 実 際 に 定義 され た パ 
ター ン に 対し て 左右 が 反転 し て 表示 され て いる こと を 意味 し ます 。 
パパ レッ トブ ロッ ク pb は 各 パ ター ン に 対し て 割り あて られ て いる パレ ッ ト で 、1 か ら 15 
の 値 を 返し ます 。 詳細 に つい て は 、sp_color 関 数 を 参照 し て くだ さい 。 
テキ スト ペー ジ 1 し か 使用 し な い 場 合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン 
の 場合 、0 か ら 191 ま で の 値 を 返し ます 。 テキ スト ペー ジ 0 、1 と も 使用 する 場合 の パ 
ター ンコ ー ド cd は 16X16 ド ッ ト パ ターン の 場合 、 0 か ら 127 ま で の 値 を 返し ます 。 テ キ 
スト ペー ジ 0 、 1 と も 使用 し な い C じ バッ ク グ ラウ ンド を 使用 し な い ) 場合 の パタ ー ン 
コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 255 ま で の 値 を 返し ます 。 


bg put 
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BG PUT SPRITE 


中 
由 


落 | | 測 | | 
告 | 高 | 憶 


bg_put (pg,x,y,pd) 
char (pg,x,y) ,int (pd) 
int 


指定 され た テキ スト ペー ジ pg の 指定 され た 座標 に 指定 され た パタ ー ン デー タ pd を 設 
定 | 貞 ます 。 


税 ms 座標 (0 63) 
YO の の の Y 座 標 (0 一 63) 


pd …… ツ パタ ー ン デー タ (0 一 科 HCFFF) 


パパ ター ン デ ー タ pd は 、 次 の よう な ビッ ト 構 成 に な っ て いま す 。 (ビッ ト 12、 13 は 通常 0 
に な り ま す 。) 

ビッ ト 15……… 垂 直 反 転 (0 : 通常 、1 : 垂 直 反 転 ) 

ビッ ト 14……* 水平 反転 (0 : 通常 、1 : 水平 反転 ) 

ビッ ト 8 一 11… ン パレット プ ブロック pb(1 一 15) 

ビッ ト 0 一 7… ツ パタ ー ン コー ドド cd(0 一 255) 
垂直 反転 を 指定 する と 、 実 際 に 定義 され た パタ ー ン が 上 下 反 転 し て 表示 され ます 。 ま 
た 、 水 平 反 転 を 指定 する と 、 実 際 に 定義 され た パタ ー ン が 左右 反転 し て 表示 され ます 。 
パパ レッ トブ ロッ ク pb は 各 パ ター ン に 対し て 指定 する マレット で 、 詳細 に つい て は 、 sp 
_color 関 数 を 参照 し て くだ さい 。 
テキ スト ペー ジ 1 し か 使用 し な い 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン 
の 場合 、0 か ら 191 ま で の 値 を と る こと が で きま す 。 テキ スト ペー ジ 0 、1 と も 使用 す 
る 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 、0 か ら 127 ま で の 値 を と 
る こと が で きま す 。 テ キス トペ ー ジ 0 、 1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 
し な い ) 場合 の の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 、 0 か ら 255 ま で の 値 
を と る こと が で きま す 。 


bg get 
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編 ア テレ ジス 


BG _ SCROLL SPRITE 


+ 


bg scroll(b,(x〕【, 幼 ) 

char (b) ,int (x,y) 

int 

バッ ク グ ラウ ンド b の スク ロー ル 上 座標 を 設定 し ます 。 


孤 9 志 sans 2 ペタ グラ ウジ ド (0 。 1 ) 


9E vexsoxvec スク ロー ル X 座 標 (0 一 511 ま た は 1023) 
doom スク ロー ル Y 座 標 (0 一 511 ま た は 1023) 


な お 、 表示 画面 サイ ズ が 256X256 の 場合 は 、 X、Y 座 標 は 0 か ら 511 ま で の 値 を と る こ 
と が で きま す 。 表示 画面 サイ ズ が 、512X512 の 場合 は X、Y 座 標 は 、0 か ら 1023 ま で 
の 値 を と る こと が で きま す 。 た だ し 、 表示 画面 サイ ズ が 512X512 の 場合 は バッ ク グ ラ 
ウン ド 1 は 表示 され ませ ん の で 注意 し て くだ さい 。 


bg stat 


回 村 き 世 生 SPRITE 


+ 


bg set(b,〔pg〕〔, md ) 

char 

int 

バッ ク グ ラウ ンド b へ の テキ スト ペー ジ pg の わり あて と 表示 の 設定 を 行い ます 。 


No ペッ クダ テウ ンド 48、 1) 

| キス トペ ー ジ (0。 1 ) 

md …… バ ッ ク グ ラウ ンド の 表示 (0 表示 し な い 、 1 三 表示 する ) 
な お 、 表 示 画 面 サ イズ が 512X512 の 場合 の み 、 バック グラ ウン ド 1 は 表示 され ませ ん 
の で 注意 し て くだ さい 。 表 示 画 面 サイ ズ が 256X256 の 場合 は 、 バ ッ ク グ ラウ ンド 0、 
1 と も 表示 で きま す 。 


bg stat 
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BG STAT 欠 


+ 


bg stat(bmd) 

char 

int 

指定 され た バッ ク グ ラウ ンド b の 状態 を 読み 出し ます 。 


b PCPPPCCPD バッ ク グ ラウ ンド (0、 1 ) 


モー ド md に は 読み 出す 内 容 を 指定 し ます 。 

0 =X 座 標 (0 一 511 ま た は 1023) 

1 =Y 座 標 (0 一 511 ま た は 1023) 

2 ニテ キス トペ ー ジ (0、1) 

3 ニー バッ ク グ ラウ ンド の 表示 (0 表示 され て いな い 、 1 = 表示 され て いる ) 
な お 、 表示 画面 サイ ズ が 256x256 の 場合 は 、 X、Y 座 標 に は 0 か ら 511 ま で の 範囲 の 値 
を 返し ます 。 表示 画面 サイ ズ が 512X512 の 場合 は 、X、Y 座 標 に は 0 か ら 1023 ま で の 
範囲 の 値 れ 返し ます 。 た だ し 、 表示 画面 サイ ズ が 512X512 の 場合 は 、 バ ッ ク グ ラウ ン 
ド 1 は 表示 され ませ ん の で 注意 し て くだ さい 。 


bg scroll、bg set 
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BIN 中 標準 関数 


bin$ 
mt 
戻り 値 str 


| 機 能 | 整数 値 を 2 進 表現 の 文字 列 に 変換 し 返し ます 。 な お 、 上 位 の ヾ 0/ は 取り 除 か れ ま 
する 


hex$、oct$ 


っ 
10 /』 bins sample 


int ai,bi 
39 ai=-255 
49 bi=2199542399 
59 print bin$(ai ) 
69 print bin$( bi ) 
79 print bin$(ai)+bin$(bi ) 
80 end 


to 


BOX GRAPH 


box(x1.y1.x2,y2,p【, 1s) ) 
int 

戻り 値 void 

機能 グラ フィ ッ ク 画 面 上 に ボッ クス (四角 形 ) を 描き ます 。 


赤 表 vo 始点 X 座 標 
Oc 始点 Y 座 標 
2 mo 終点 X 座 標 


SOSSSB SG ライ ンス タイ ル 

x1、y1、x2、 y2 は 、 一 32768 か ら 32767 ま で の 値 を 取る こと が で きま す 。 クリ ッ ピ ング 
エリ ア に つい て は window 関 数 で 指定 され た 範囲 に なり ます 。 また 、 パ レッ トコ ー ド p 
は 0 か ら 65535 ま で の 値 を 取る こと が で き 、 そ の 最大 値 は 、 グ ラフ ィ ッ ク 画 面 の 実 画面 
サイ ズ 及 び 色 モー ド に より ます 。 

ライ ンス タイ ル ls は 0 一 65535 の 値 を 取り 、 こ れ を 16 ビ ッ ト の ビッ トバ パ ター ン と 見 な 
し 、 実 線 (&HFFFF) や 点線 (&HAAAA) な ど を 指定 する こと が で きま す 。 

/* box samp1e 


int ai,bi,ci,di,e1,f1」g 
39 screen 1,3,1,1 


KS 
S ぐ ざ マ 


用 例 


49 vpage(1) 

59 for ai= の to 199 

60 bi=rand( ) mod 512 
709 ci=rand( ) mod 512 
89 di=rand( ) mod 512 
90 ei=rand() mod 512 
199 fi=rnd()*65535 
119 gi=65535 

1209 box(bi,ci,di,ei,fi,gi ) 
139 next 

149 wipe( ) 

159 for ai= to 1699 

169 bi=rand( ) mod 512 
179 ci=rand() mod 512 
189 di=rand( ) mod 512 
199 ei=rand( ) mod 512 
200 fi=rnd()*65535 
210 豆 1=rnd( )*65535 
229 box(bi,ci,di,e1,f1i,g1 ) 
239 next 

249 end 
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BREAK ステ ー ト メン ト 


bsk 


機 能 最も 内 側 の for、repeat、switch、while 文 か ら 抜け 出し ます 。 


2 continue 


19 /* break sample 
29 int ai 


3 の 9 ai=1 

49 switoh ai 

509 case の :print "9 の":break 
69 case 1:print "1":break 
79 CaSe 2:print "2":break 
8 default:print "2 


99 endswitoh 
109 for ai= の to 19 


119 if ai=5 then print "5":break 
120 print ai 

139 next 

149 ぃ while ai<>9 

159 if ai=2 then print "2":break 
169 a1=ai-1 

179 PFrint ai 


189 endwhi]e 
199 print "complete!" 
299 end 


CHAR ステ ー ト メン ト 


char < 変数 名 >〔 三 < 定数 式 >]〔, .. 〕 


変数 を 整数 (char) 型 と し て 宣言 し ます 。 同 時 に 値 を 代入 する こと も で きま す 。 
原則 と し て 、 変 数 宣言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 ま た 、 同 じ 名 前 
の 変数 を メイ ンプ ログ ラム 中 で 再 宣 言 す る こと は で きま せん 。 


2 float、int、str 


1 の /* char sample 
2 の char ao=41 

39 char bo=*A* 

49 char oo=68,do='b* 

59 print ac 

69 print bo 

7 の 9 print oo,do 

89 end 


90 


ディ レク トリ を 変更 し ます 。 く < ディ レク トリ 名 > の 詳細 に つい て は 、 「Human68k ユ ー 
ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


chdir "a:\bin" 


chdir "< ディ レク トリ 名 2" 


CHDRV 昌 


書 式 chdrv "< ドラ イブ 名 ?" 


機 能 カレ ント ドラ イブ を 変更 し ます 。 く ドラ イブ 名 > の 詳細 に つい て は 、「 Human68k ユ ー 
ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


GehGdrv "bp:" 


91 


第 4 章 リフ ァ レ ンス 


CHILD gdHS 


書 式 ! く <Human68k の コマ ンド > 

機能 チャ イル ド プ ロ セ ス を 実行 し ます 。 
た と えば 、“command. xs” を チャ イル ド プ ロ セ ス で 実行 する た め に は 、 同 じ デ ィ レ ク 
トリ に “command.x′ と いう ファ イル が あり 、 さ ら に “command.x′ を ロー ド す 
る だ け の エリ ア が 、 フ リー エリ ア と は 別に メモ リ 上 に な けれ ば な り ませ ん 。 
な お 、 こ こ で 使用 で きる Human68k の コマ ンド に つい て の 詳細 は 、 「Human68k ユ ー 
ザー ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


!ed test.dat 


!format b: 


CHR$ 標準 関数 
chr$ (ch) 
引 数 


char 
り 値 str 


機能 キャ ラク タコ ー ド ch の 文字 を 返し ます 。ch= 0 の と き は null 文 字 を 返し ます 。 
ch は 0 一 255 の 範囲 で な けれ ば な り ませ ん 。 また 、 その 文字 が コン トロ ー ル キャ ラク タ 
と し て 定義 きれ て いる と 、 基 本 的 に は 文字 は 表示 され ず 、 そ の コン トロ ー ル コー ド の 
持つ 機能 が 実行 され ます 。 た だ し 中 に は 実行 され な いも の も あり ます 。 文 字 と キャ ラ 
クタ コー ド の 対応 に つい て は 、「 キ ャ ラク タコ ー ド 表 」 を 参照 し て くだ さい 。 


asc、「 キ ャ ラク タコ ー ド 表 」 


っ 
19 /* chr$ sample 
29 char ao,bo 
3 の ao=&H41 
49 bo=&H31 
50 print ohr$(13) 
69 print ohr$( ac) 
7 の print ohr$( bo ) 
89 print ohr$(ac)+ohr$( bo ) 
99 end 
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CIRCLE 


circle(x,yr,jp【,s]【, e] 〔, hyv]〕) 
int 
void 


グラ フィ ッ ク 画 面 上 に 円 椿 円 や 扇 型 、 円 弧 を 描き ます 。 


COCCOPCCLPL 円 の 中 心 の X 座 標 
Yo の 円 の 中 心 の Y 座 標 
ee っ: 円 の 半径 

DO の ッ パ レッ トコ ー ド ( 色 ) 
(SC32RSC5 開始 角度 ( 度 ) 
zoozesssos 終了 角度 ( 度 ) 

hi isssss 偏平 率 


GRAPH 


x、y は 、 一 32768 か ら 32767 ま で の 値 を 取り 、 半径 r は 0 か ら 32767 ま で の 値 を と る こと 
が で きま す 。 ク リッ ピン グ エ リ ア に つい て は window 関 数 で 指定 され た 範囲 に な り ま 
す 。 ま た 、 パ レッ トコ ー ド p は 0 か ら 65535 ま で の 値 を と る こと が で き 、 そ の 最大 値 は 


グラ フィ ッ ク 画 面 の 実 画面 サイ オズ お よび 色 モ ー ド に より ます 。 


開始 角度 s、 終 了 角 度 e は 通常 0 か ら 360* の 値 を と り ま す 。 一 1 から 一 360* の 値 を 使用 


する と 扇 型 を 描く こと が で きま す 。 
偏平 率 hy は 0 一 65535 ま で の 値 を と る こと が で きま す 。 
hv く 256 な ら 横長 椿 円 


hv=256 な ら 縦 横 比 1 の 真 円 (た だ し 768X512 以 外 の 表示 画面 サイ ズ で は 真 円 


と な り ま せん ) 
hv>256 な ら 縦 長 椿 円 
19 /* oiro]e sample 


2 の int ai。bi Ci di。e1,f 和 1 。 ど 1 
39 screen 2, の 9,1,1 


49 vpage(1) 

59 for ai= の to 190 

69 bi=rand() mod 768 

70 ci=rand( ) mod 512 

80 di=rand( ) mod 299 

90 ei=ai mod 16 

1090 cirole(bi,ci,di,ei,9,369,256 ) 
119 next 

129 wipe( ) 


139 screen 1,3,1,1 
149 for ai=9 to 500 


159 bi=599-ai 

160 ci=hsv(ai mod 192,31,31) 

1709 circle(256,256,19 の 9,ci, の 9,369,b1 ) 
189 next 

199 oipe( ) 
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299 1ocate 32,15:print "" 
219 looate 32,3 の :print " 扇 " 
22 の for-agi= の - to 17 


239 bi =ai*5 

249 ci1=99-bi :d ュ =-99+bi 

259 ei=99+bi:f ュ =-99-bi 

260 gi1=hsv(ai mod 192,31,31) 

270 circle(256,299,159,gi,oi ,ei , 400 ) 
289 circle(256,439,159,gi,di,fi,400) 
299 next 

399 end 


CLEAR が 


変数 と スタ ッ ク を 初期 化し ます 。 プロ グラ ム 中 で は 使え ませ ん 。 
に 


free 


cls 


機 能 テキ スト 画面 の み を 消去 し ます 。 


19 /* cls sample 
29 


imt ai。bi 
3 の 9 soreen 2,9,1,1 
4 の vpage(1) 
59 for ai= の to 59 
69 fi11(rnd()*767,rnd( )*511,rnd( )*767,rnd( )*511,rnd( )*16) 
7 の 9 next 
89 for ai=9 to 3 
99 for bi= の 9 to 299 
199 print "X68999ACE に 
119 mext 
1209 for bi= の to 19990 
139 next 
149 cl1s 
159 next 
169 for ai= の to 19999 
179 next 
189 wipe() 
199 end 
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COLOR ネ テ ー ト メト 


color < 属性 > 
省略 形 col. 
機能 テキ スト 画面 の 文字 の 属性 を 設定 し ます 。 


文字 の 属性 に は 、4 つの ノ パ レッ ト と 、 強 調 、 リ バー ス が あり 、 0 一 15 の 値 を 使用 する 
こと で 設定 で きま す 。 デ フォ ルト と し て は 次 の よう な 属性 が それ ぞ れ 0 か ら 15 に 対応 


し ます 。 

0 ノー マル 選 8 りー ス 

1 ノー マル ジア ジ 9 リッ パー ズ ング ジ 
2 ノー マル 黄色 10 リバ ー ス 黄色 
3 ノー マル 白 11 リバ ー ス 日 

4 ノー マル 強調 黒 12 リバ ー ス 強調 黒 

5 ノー マル 強調 シア ン 13 リバ ー ス 強調 シア ン 
6 ノー マル 強調 黄色 14 リバ ー ス 強調 黄色 


7 ノー マル 強調 白 15 リバ ー ス 強調 白 
文字 の 属性 の 0 と 4 と 8 と 12 は 、 パ レッ ト (p0) に 対応 し ます 。 ま た 、 文字 の 属性 の 1 
と 5 と 9 と 13 は 、 パ レッ ト (p1) に 対応 し 、 2 と 6 と 10 と 14 は 、 パ レット (p2) に 対応 
し 、 3 と 7 と 11 と 15 は 、 フ パレ ッ ト (p3) に 対応 し ます 。 
各 パ パレット を 変更 する に は 、color [ ] 命 令 を 使用 し て くだ さい 。 


19 /* color samp1e 
29 


int ai 
39 for ai= の 9 to 15 
49 color ai:print "persona1] workstation X68909ACE" 
59 next 
69 color 3 
7 の end 


95 


第 4 章 


リフ ァ レ ンス 


COLOR [| ] スズ デ ー ト メン ト 


color [c0,c1,c2,c3] 
col 


機 能 テキ スト 画面 の 各 パ レッ ト に カラ ー コ ー ド を 割り あて ます 。 


CO …… の tt 属性 0 、4 、8 、12 の パレ ッ ト (p0) に 割り あて る カラ ー コ ー ド 

HU "Ys 属性 1、5 、9 、13 の パレ ッ ト (p1) に 割り あて る カラ ー コ ー ド 

9 放 oynwka 属性 2 、6 、10、14 の パパ レッ ト (p2) に 割り あて る カラ ー コ ー ド 

0 導 0Roxew 属性 3 、7 、11、15 の パレ ッ ト (p3) に 割り あて る カラ ー コ ー ド 
カラ ー コ ー ド は 0 一 65535 の 値 を 使用 で きま す 。 属性 に つい て は color 命 令 を 参照 し て 
くだ さい 。 
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/* color [] sample 
jmt ai。b1。G1,di et ギュ 
c1s 
for ai= の to 15 
color ai 
print "persona] workstation X68999ACE": 
print "persona1 workstation X68999ACE" 
next 
color 3 


print "途中 で BREAK し た と き は 、'run 219-' を 入力 し た あと 、 リ ター ン キ ー を 押し 


で 舌 行 し で 《 だ さ ゅ " 


110 
120 


for ai= の to 31 
for bi= の to 31 
for oi= の to 191 
di=hsv(oi,bi,ai )+1 
ei=hav(oi,31-bi,31-ai )+1 
fi=hsv(oi,bi ,31-ai )+1 
color [di,ei,fi,655351 
nex も 
mex キ 
mex も 
/* color defau1t value 
color [9,rgb( 9,31,31 )+1,rgb(31,31,9)+1,65535] 
color 3 
end 
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CONSOLE ee 


console 【< ス クロ ー ル 開始 行 >] (< く ス クロ ー ル 行 数 >]、 く ファ ンク ショ ン キ ー 表 示 > 
cons 


機 能 < スク ロー ル 開 始 行 > で 指定 し た 行か らく スク ロー ル 行 数 > 分 を テキ スト 画面 の スク ロ 
ご 9kEUZ と じじ ま 3 
表示 画面 サイ ズ が 256X256 以 外 の テキ スト 画面 の 最 下 行 は 、 フ ァ ン クシ ョ ン キ ー の 表 
示 エ リア に な り ま す 。 く < スク ロー ル 開 始 行 > の と りう る 範囲 は 0 か ら 31 ま で 、< ス クロ ー 
ル 行 数 > の と りう る 範囲 は 1 か ら 32 ま で で す 。 < スク ロー ル 開 始 行 > と く ス クロ ー ル 行 
数 > と < く ファ ンク ショ ン キ ー 表 示 > の 値 を すべ て 加え た 値 は 最大 322 ま で と な り ま す 。 た 
だ し 、 < スク ロー ル 開 始 行 > で 31 を 指定 し た り 、 ある い は < スク ロー ル 行 数 > で 32 を 指定 
し た 場合 は 、 く ファ ンク ショ ン キ ー 表 示 > は 0 に 設定 し て くだ さい 。 
表示 画面 サイ ズ が 256X256 の テキ スト 画面 の 場合 は 、 常時 < ファ ンク ショ ン キ ー 表 示 > 
は 0 に 設定 し 、 く < スクロール 開 始 行 >? は 0 か ら 15 ま で 、 < スク ロー ル 行 数 > は 1 か ら 16 ま 
で の 範囲 の 値 を と る こと が で きま す 。< く スク ロー ル 開 始 行 > と く ス クロ ー ル 行 数 > と く フ 
ァ ン クシ ョ ン キ ー 表 示 > の 値 を すべ て 加え た 値 は 最大 16 ほ で と な り ま す 。 
な お 、 < ファンクション キ ー 表 示 > は 0 な ら フ ァ ン クシ ョ ン キ ー 表 示 OFF、1 な ら フ ァ 
ンク ショ ン キ ー 表 示 ON を 意味 し ます 。 
console 命 令 を 実行 する と 、 実行 後 、 カ ー ソ ル は 表示 画面 の 左上 に 移動 し 、 ま た width 
命令 を 実行 する と 、 console 0.31, 1 に 再 設定 され ます 。 な お 、 console ,,0 は ファ 
ンク ショ ン キ ー の み 表 示 OFF と し 、console ,,1 は ファ ンク ショ ン キ ー の み 表 示 ON 
に し ます 。 こ の 場合 、 スクロール エリ ア は 変化 し ませ ん 。 


19 /* console sample 

20 int ai。bi,oi,di,e1。f ュ 

39 screen 2,9,1,1 

49 vpage(1) 

S09 1ocate 9,3 

69 jrint "表示 画面 サイ ズ は 768*512 ( 横 96 桁 * 縦 32 行 ) で す “" 
79 while ai< く >-1 


80 1nput " で ルル 生 条 た 0 の LO 抽 還 E 拓 し て くだ さ い ー--> bi"ibi 

99 届 下 bi く 9 or bi>31 then print "bi の 値 を 設定 し 直 人 9 だ さい": 0 

190 1nput "スク ロー ル 行 数 を 1 か ら 32 の 範囲 で 入力 し て く た 人 さき WM パ ニー ニー ツ Gi 

119 if oi<] or ci>32 or bitoi>32 then print "bi ci の 値 を 設定 し 直し て く だ さ 
い ":continue 

120 if bi+ci=32 then print "ファ ンク ショ ン キ ー は 表示 で き ませ ん ":di=9:break 

139 while e1 く >ー1 

140 1nput "ファ ンク ショ ン キ ー を 表示 する 場合 は 1 を 表示 し な い 場 合 は 9 を 入 


2 t だ さ い ---> di"idi 
if di<9 or di>1 then print "di の 値 を 設定 し 直し て くだ さい ":continue 
0 e1=-1 
1709 endwhile 
1809 a1=-1 
199 endwhile 
299 pause( ) 
219 cls 
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220 print 


259 cls 


PGQonaole "jiba3T。7seii7."sdts2" を 設定 じ し ま す " 
239 console bi,oi,d ュ 
249 pause( ) 


269 for ai= の to 509 


280 next 


print "X68999ACE 


299 pause( ) 
399 console 9,31,1 


319 cls 
320 end 


339 func pause( ) 
349 for fi= の to 10990909 


35 の next 


369 endfuno 


CONT 


")"X68999ACE-HD 1 


省略 形 
機 能 
に 3 


Cont 


の 


|BREAK | キー( |CTRL|+ 


C | キー) 入力 、 また は stop 命 令 に よっ て 停止 し た プロ 


グラ ム の 実行 を 再開 し ます 。 


実行 停止 中 に list 命 令 や print 命 令 な ど を 実行 する こと は 


で きま す が 、 プ ログ ラム その も の の 変更 を 行っ た と き は 、cont 命 令 に よる 実行 の 再開 


は で きま せん 。 


Stop 
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CONTINUE 0 


書 式 continue 
機 能 for、repeat、while 文 の 次 の ルー プ を 強制 的 に 開始 し ます 。 


2 break 


用 例 19 /* continue sample 
20 int ai 


39 print "繰り 返し で 、continue を 使用 し な い 場 合 " 
4 の for ai=9 to 5 


59 if ai=2 then print "68999ACE" 

69 DP an 

7 の Print "persona] workstation X68999ACE" 
89 next 


399 print “同じ 繰り 返し で 、continue を 使用 し た 場合 " 
199 for ai=9 to 5 


119 1f ai=2 then print "X68999ACE":continue 
129 DTD や 和 あ 沿 "ST 

130 print "persona] workstation X68999ACE" 
149 next 

15 の 9 ai=-1 


16 の print "9 か ら 29 ま で の 偶数 値 、 奇 数 値 を 表示 し ます !" 
17 の while ai<>29 

189 a1=ai+1 

199 if (ai mod 2)=9 then print aii:continue 

299 Print ai 

219 endvhile 

229 end 
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CONTRAST GRAPH 


| 書式 | contrast (ch) 


char 
戻り 値 Void 
機 能 画面 全体 の コン トラ スト を 指定 し ます 。 


Ch ee 0 (文字 や グラ フィ ッ ク 、 スプ ライ ト の 表示 が 見 えな い ) 一 15 (文字 や 
グラ フィ ッ ク 、 ス プラ イト の 表示 が よく 見 える ) 


19 /* contrast samp]e 
20 hnt airbi oi 
3 の screen 1.,3,1,1 
49 vpage(1) 
5 の symbo1(299,299, "SHARP",2,2,2,rgb(31,9,9)+1,0) 
69 for ai=9 to 15 


79 bi=15-ai 

89 contrast( bi ) 

909 for oi= の to 10999 
1909 next 

110 next 


129 symbo1(199,199,"X68999ACE" ,3,3,2,rgb( 9,9, 31)+1,0) 
139 for ai=9 to 15 

140 contrast(ai ) 

150 for bi= の 9 to 10090 

160 next 

179 next 

18 の end 


COS 標準 関数 


書 式 cos(n) 
float 
float 


機 能 数 値 n( ラ ジア ン ) の 余弦 (コサイン ) を 返し ます 。 


19 /* cos sample 
29 


も R 入 の GO 王 0 ま 
3 の 9 float af 
4 の soreen 1,3,1,1 
5 の vpage(1) 
69 line(9,255,511.255,.65535 ,&HEFFEFTF ) 
7 の for ai=1 to 3 


89 for bi= の 9 to 511 

99 af=(2*pi ( ) *bi ) /512*a ュ 
199 ci=255-cos(af )*299 
119 di=rnd( )*65535 

129 pSet( bi ,ci ,di ) 

139 next 

149 next 

159 end 
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IMAGE 


crt(cd) 

char 

void 

テレ ビ ・ ビ デオ 画面 と コン ピュ ー タ 画面 を 切り 換え ます 。 


Gaco: 切り 換え コー ド (0 一 3) 
コー ド cd の 値 と 意味 は 次 の と お り で す 。 

0 ニテ レビ ・ ビ デオ 画面 の 映像 を 表示 

1 ニコ ンピュータ 画面 を 表示 

2 ニテ レビ ・ ビ デオ 映像 の コン トラ スト を 下げ て スー パー イン ポ ボーズ 表 示 

3 ニテ レビ ・ ビ デオ 映像 の コン トラ スト を 通常 に し て スー パー イン ポー ズ 表 示 
実行 前 に screen 命 令 で あら か じ め 表 示 画 面 サイ ズ を 256X256 ま た は 、 512X512 に 、 デ 
ィ ス プレ イ 解 像 度 を low (標準 解像度 ) に 設定 し ます 。 カ ラー イメ ー ジ ユニ ッ ト の テロ 
ッ パ 和 機能 を 使っ て 、 コ ンピュータ 画像 や スー パー イン ポー ズ 画 像 を ビデ オ に 録画 する 
場合 、crt(3) に あら か じ め 設 定 し て くだ さい 。 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジ ユ ニ ッ ト CZ-6VT1 が 必要 で す 。 
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CSRLIN 本 の 


csrlin 


戻り 値 int 


テキ スト 画面 の 現在 の カー ソル の y 座 標 を 返し ます 。 代 入 す る こと は で きま せん 。 


19 /* osr1lin sample 
29 print "X68999ACE" 
39 print "X68999ACE" 
49 print osr1in 

59 end 


date$ 


Str 

| 戻り 値 | str 

現在 の 日 付 を 文字 列 と し て 返し ます 。 代入 する こと に よっ て 日 付 を 設定 で きま す 。 
10 /* date$ 1 

29 str 生生 ・ 1 

3 の as=date$ 

49 print as 

59 bs=as 

69 date$=bs 


7 の print date$ 
89 end 
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シス テム 変数 


Str 
現在 の 曜日 を 文字 列 と し て 返し ます 。 代 入 す る こと は で きま せん 。 


19 /* day$ sample 
2 の str as 

39 as=day$ 

49 print as 

50 end 


DELETE 9 


delete < 行 番号 の 範囲 > 
del. 


指定 され た プロ グラ ム 行 を 削除 し ます 。 
行 番号 の 指定 方 法 に よっ て 、 さ ま ざ ま な 形 の 削除 が 行え ます 。 


delete 10 行 番号 10 の 行 を 削除 し ます 。 
delete 一 100 プロ グラ ム の 先頭 か ら 行 番号 100 ま で の 行 を 削除 し ます 。 
delete 200 一 行 番号 200 か ら プ ログ ラム の 最後 まで の 行 を 削除 し ます 。 


jist、new、renum 
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DIIM ステ ー ト メン ト 


書 式 dim 【< 型 宣言 >] < 変数 名 >(< 添 字 の 最大 値 >〔, < 添字 の 最大 値 >.…… 〕) 【[ く 文字 バッ 
ファ の サイ ズ >]〕〔 テ {< 代入 定数 式 デ ー タ リス ト >}〕【, < 変数 名 >. . . 


機能 配列 変数 を 使う こと を 宣言 し ます 。 
dm 文中 で 代入 する デー タ は 、={ } で 囲 め ば 複数 行 に 分 け て 記述 で きま す 。 た だ し 、 
複数 行 に わけ て 記述 し た 場合 は 、 そ の プロ グラ ム を save@ 命 令 で セー ブ で き て も 、 
load@ 命 令 で ご ロー ド で きま せん の で 注意 し て くだ さい 。 
同じ デー タ 型 の 配列 は カン マ で 区 切れ ば 後に 続け て 1 行 に 入力 可能 な 文字 数 の 範囲 内 
で 宣言 で きま す 。 な お 、< 型 宣言 > を 省略 する と 、int 型 の 配列 と し て 扱わ れ ま す 。 
設定 で きる 添字 の 最小 値 は 0 、 最 大 値 は フリ ー エ リア が 許す 範囲 で す 。 
< 文字 バッ ファ の サイ ズ > は 1 一 255 の 範囲 で 設定 で き 、str 型 の 配列 の 1 要素 の と りえ 
る 文字 列 の 最大 の 長 さ を 指定 し ます 。 省略 し た 場合 は 32 文 字 と な り ま す 。 
原則 と し て 、 配 列 変数 の 宣言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 同 じ 名 前 
の 配列 を 再 宣言 する こと は で きま せん 。 


19 /* dim sample 

2 の int ai,bi 

3 の dim int aia(2)={15,-845,.55555555} 

49 dim int bia(1,1)={465,5953, 

5 の -536 ,2221 

6 の 9 dim char aoa(2,2,2) 

7 の 9 dim float afa(5) 

89 dim str asa(1)={"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' , 
99 "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'} 
16 の 9 dim str bsa(1)[59]={"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb'" , 
119 "asdsadafasd"} 

129 for ai=9 to 2 


139 DSmn も 2a ま まみ (at )=Vsat あ 6ai ) 

14 の 9 next 

159 for ai=9 to 1 

169 for bi= の to 1 

1709 pdn も "も ま a( at DE だ リー betai , も 4 ) 
180 next 

199 next 

299 print "asa(9)="jasa(0) 

219 print "bsa(9)=":bsa(0) 

229 end 
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敵 


測 
耐 


藻 


dskf(d) 
char 
int 


指定 され た ドラ イブ d の 空き ディ スク 容量 を 返し ます 。 エ ラー の 場合 は ー 1 を 返し ま 
す 。 


dd……………ー 0 少 レ ント ドラ イブ 
1 ドラ イブ A 
2 ドラ イブ B 


19 /* dskf sample 
29 int ai 

39 ai=dskf(2) 

4 の print ai 

59 end 
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ECVT 


+ 


ecvt(fil,i2.13) 
float(⑪), int (1) , int 型 変数 名 (12.13) 
Str 


浮動 小数 値 f を 文字 列 に 変換 し 、 そ の 文字 列 を 返し ます 。 文字 列 と し て 返さ れる の は 数 
値 の み で す 。 


te 文字 列 に 変換 し た い 浮動 小数 値 

| kcnecs 文字 列 の 桁 数 

2 ……… 小数 点 の 位置 を 返し ます 。 正 の 場合 は 、 小 数 点 は 12 十 1 の 位置 に あ 
り ま す 。 0 また は 負 の 場合 は 、 小 数 点 は 12 一 1 の 位置 に あり ます 。 

3 の 符号 を 表わす 値 を 返し ます 。 正 の 場合 は 0 、 負 の 場合 は 1 に な り ま 
ま 。 


atof、fcvt、 gcvt 


19 /* eovt sample 

2 int ai,bi 

3 の 9 float af,bf。of 

4 の 9 af=259999999990900# 

59 bf=-2.6546681E+205# 

69 cf=-5.2365426E-918# 

7 の print str$(af ) 

8 の print eovt(af,29,ai,bi ) ,ai ,bi 
99 print str$(DFf ) 

19 の 9 print eovt(bfF,29,ai,bi ) , ai ,bi 
119 print str$(of ) 

129 print eovt(cf,29,ai,bi ) , ai ,bi 
139 end 
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end 


プロ グラ ム を 終了 し ます 。 プ ログ ラム 内 に いく つ 置 いて も か まい ませ ん 。 た だ し 、 最 
初 に 実行 し た end 命 令 よ りあ と の 命令 文 は 実行 され ませ ん 。 


19 /* end sample 

2 の test( ) 

39 end 

49 funo test( ) 

59 print "X68999ACE" 
69 endfunc 


int 
外部 関数 で エラ ー が 発生 し た と き の エ ラー 番号 を 返し ます 。 代 入 す る こと は で きま せ 
ん 。error off の モー ド の 場合 に 有効 に な り ま す 。 戻り 値 と し て 、 次 の よう な 値 を 返 
し 肖 


1 語 CGCCCCCCCCCOD エラ ー が 発生 し て いな い 
正 の 整数 …… エラ ー 番 号 
負 の 整数 …… シ ステ ム エ ラ ー 時 の エラ ー 番 号 
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ERROR _ ON/OFF ステ ーー 


書 式 error on まだ は error off 


機 能 error on に する と 、 外 部 関数 で エラ ー が 発生 し た と き に エラ ー メ ッ セ ー ジ を 表示 し 
て 実行 を 停止 する モー ド に な り ま す 。error off に する と 外部 関数 で エラ ー が 発生 し 
て も エラ ー メ ッ セ ー ジ を 表示 せ ず 、 次 の ステ ー ト メン ト に 実行 が 進め られ ます 。run 命 
令 実 行 直 後 は error on の モー ド に な っ て いま す 。 な お 、error off の モー ド が 有効 な 
と き は 、 プ ログ ラム で error off を 実行 し て いる 間 の み で す 。 プ ログ ラム が 終了 し 
て 、^Ok” が 表示 され る と error on の モー ド に な り ま す 。 


用 例 19 /* error on/off sample 
29 int ai 
3 の 9 cls 
4 の print "error off モ ー ド に し ます " 
59 error off 
6 の line(9,9,1111111199,199,8888888 ) 
79 print "X68999ACE" 
89 for ai= の 9 to 109909 
9 の next 
199 cls 
119 print "error on モー ド に し ます " 
129 error on 
139 1ine( の 9, の 9,1111111199,199,8888888 ) 
149 print "X68999ACE" 
159 end 


書 式 exit( ) 
機 能 現在 オー プン され て いる ファ イル を クロ ー ズ する な どの 処理 を し た 後 、 親 プロ セス に 
戻り ます 。 
19 /* ュ it( ) 1 
0 PC 8 
3 の exit( ) 
4 の 9 end 
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EX ロ 標準 関数 


exD(n) 


float 
戻り 値 float 


機 能 自然 対数 の 底 e” の n 乗 を 返し ます 。 


19 /* exp sample 
29 float af,bf 
39 af=5.3# 
40 bf=-2.8# 
59 print exp(af ) 
69 print exp( bf ) 
79 end 


FCLOSE 準 関数 


fclose(fp) 
mn 
int 


機 能 fopen 関 数 に よっ て オー プン きれ た ファ イル を クロ ー ズ し ます 。 ク ロー ズ し た 場合 、 戻 
り 値 と し て 0 を 返し ます 。 エ ラー の 場合 は 1 を 返し ます 。 


fp ae emia ファ イル 番号 


| 19 /* folose sample 
2904 ah 
39 str as 
49 1inpu も t "ファ イル 名 を 入力 し て くだ さい --->?" jas 
59 ai=fopen(as,"o") 
69 bi=fopen(as,"r") 
79 print "指定 ファ イル が クロ ー ズ され ます " 
89 foc1ose(ai ) 
99 folose(bi ) 
199 end 
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FCLOSEALL 準 関数 


書 式 fcloseall( ) 


り 値 int 


イル の 個数 を 返し ます 。 エ ラー の 場合 は ー 1 を 返し ます 。 


19 /* foloseal11() sample 

29 int ai,bi」oi 

39 str as 

4 1input "ファ イル 名 を 入力 し て . く だ さい --->?":jas 
59 ai=fopen(as, "co" ) 

69 bi=fopen(as,"r") 

7 の print "指定 ファ イル が クロ ー ズ され ます " 

89 oi=fol]osea11() 

90| prin も "クロ ー ズ され だ た ワ ァ イル は "3oeiiP 価 で す " 
199 end 


オー プン 中 の すべ て の ファ イル を クロ ー ズ し ます 。 戻り 値 と し て 、 ク ロー ズ し た ファ 


FCVT 標準 関数 


fcvt(f, ii2.33) 


float(⑪) ,int (1) ,int 型 変数 名 (i2.i3) 
戻り 値 str 


浮動 小数 値 f を 文字 列 に 変換 し 、 そ の 文字 列 を 返し ます 。 文字 列 と し て 返さ れる の は 数 


値 の み で す 。 
ee 文字 列 に 変換 し た い 浮 動 小 数 値 
1 ……… 文字 列 の 小数 点 以 下 の 桁 数 
12 ……… 小数 点 の 位置 を 返し ます 。 正 の 場合 は 、 小数 点 は 12 十 1 の 位置 に あ 
り ま す 。 0 また は 人 負 の 場合 は 、 小 数 点 は 12 一 1 の 位置 に あり ます 。 
3 …… の te 符号 を 表わす 値 を 返し ます 。 正 の 場合 は 0 、 負 の 場合 は 1 に な り ま 
す 。 


atof、ecvt、gcvt 


っ 
1 /* fovt sample 
用 例 20 int ai,bi 

39 fl]oat af,bFf,cFf 

4 の af=25999990009909# 

59 bf=-2.6546681E+205# 

69 cf=-5.2365426E-918# 

79 print str$(af ) 

89 print fovt(af,29,ai,bi ) ,ai , bi 
99 print str$( bf ) 

109 print fovt( bf ,20,ai,bi ) ,ai,bi 
119 print str$(cf ) 

129 print fovt(of,29,ai , bi ) ,ai , bi 
139 end 
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FDELETE 標準 関数 


fdelete(fn) 
Sr 
int 


ファ イル fn を 削除 し ます 。 削除 で きた 場合 、 戻 り 値 と し て 0 を 返し ます 。 エ ラー の 場 
合 は ー 1 を 返し ます 。 


Mo ファ イル 名 
19 /* fdelete sample 
29 int ai 
39 str as 
49 cls 


59 1input "削除 し た い フ ァイル 名 を 入力 し て くだ さい --->?7ias 
69 print "ファ イル ("+as+") を 削除 し ます " 

79 aicfdelete(as) 

89 if ai<>9 then print "ファ イル の 削除 が で きま せん " 

99 prin も t "ファ イル の 削除 が で きま し た " 

199 end 


FEOF 標準 


feof(fp) 
引 数 int 
hn 


機 能 指定 され た ファ イル の 終了 チェ ッ ク を 行い ます 。 フ ァイル が 終わ りな ら 一 1 、 終 わっ 
て いな けれ ば 0 を 返し ます 。 エ ラー の 場合 も 一 1 を 返し ます 。 


fp 24ie1e0aieyaie'a ファ イル 番号 
19 /* feof sample 
29 int ai 


39 str as 

49 dim int aia(5),bia(9) 

5 の 1inpu も t "ファ イル 名 を 入力 し て くだ さ い --->?"jas 
69 as="a:\ ま "+as 

79 ai=fopen(as,"o") 

89 fnrite(aia,6,ai ) 

99 folose(ai ) 

199 ai=fopen(as,"rw') 


119 whi1e feof(ai )<>-1 
1209 frite(bia,1,a1i ) 
139 print feof(ai ) 
149 endwhile 

159 fclose(ai ) 

169 end 
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FGETC 準 関数 


fgetc (fp) 
[引数 | im 

| 戻り 値 | int 

指定 され た ファ イル か ら 1 文字 ずつ 読み 込み ます 。 戻り 値 と し て 、 読 み 込 ん だ 文字 の 


キャ ラク タコ ー ド を 返し ます 。 フ ァイル の 最後 まで 読み 込ん だ 場合 や 、 エ ラー の 場合 
は 一 1 を 返し ます 。 


fp 電 人 ファ イル 番号 
ファ イル 内 の デー タ ボ ポイ ンタ の 位置 は 、 1 バイト ずつ 移動 し て いき ます 。 フ ァイル 内 
を ラン ダム アク セス し て デー タ ポ イン タ を 移動 する 場合 は 、fseek 関 数 を 使用 し ます 。 


2 fputc 


用 例 19 /* fgeto sample 
29 int ai,bi 
39 char ac 
4 の 9 str as="persona1] workstation X68999ACE! ",bs 
59 dim char aoa( 31 ) , boa( 31 ) 
69 1input "ファ イル 名 を 入力 し て くだ さい --->?":bs 
79 for ai= の to 31 


89 aca(ai) =aso(mid$(as,ai+1,1 ) ) 
9 の 9 next 

199 ai=fopen(bs, "oc" ) 

1109 for bi= の to 31 

120 acC=aC8( b ふ ) 

139 fputo(ao,a1 ) 

149 next 


15 の 9 fo]ose(ai ) 
169 ai=fopen(bs, "rw" ) 


179 bi= の 

189 while feofF(ai ) く >-1 
199 boa( bi ) =fgetc(ai ) 
299 bi=bi+1 

210 endwhi]e 


229 folose(ai ) 

239 print "aoa=": 

24 の for ai= の to 31 

259 print chr$(aoca(ai ) ) 
269 next 

279 print:print "boa=": 

289 for ai= の to 31 

290 print chr$(boa(ai ) ) 
399 next 

319 end 
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(files いく < ドラ イブ 名 > く < ファ イル 名 >?〕 
fi. 


指定 され た ドラ イブ の ファ イル の 一 覧 を 表示 し ます 。 

ドラ イブ 名 、 フ ァイル 名 が 省略 され た 場合 、 カ レン トド ライ ブ の カレ ント ディ レク トリ 
の すべ て の ファ イル 名 を 画面 に 表示 し ます 。 ド ライ ブ 名 の み 指 定 さ れ た 場合 は 指定 さ 
れ た ドラ イブ の カレ ント ディ レク トリ の すべ て の ファ イル 名 を 表示 し ます 。 ド ライ ブ 
名 と ファ イル 名 が 指定 され た 場合 に は 、 指 定 さ れ た ファ イル の 情報 が 表示 され ます 。 
ワイ ルド カー ド も 使用 で きま す 。 

< ドラ イブ 名 >、 < ファ イル 名 > の 詳細 に つい て は 、 「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 
を 参照 し て くだ さい 。 

lfiles 命 令 で は 出力 先 が プ リン タ と な り ま す 。 


files "'a:\*.* ネ " 
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GRAPH 


fill(x1,y1,x2,y2,p) 


引 数 int 


void 


グラ フィ ッ ク 画 面 上 に 中 を 塗り つぶ し た ポッ クス (四角 形 ) を 描き ます 。 


x1、y1、x2、y2 は 、 一 32768 か ら 32767 ま で の 値 を 取る こと が で きま す 。 ク リッ ピン グ 
エリ ア に つい て は window 関 数 で 指定 され た 範囲 に な り ま す 。 また 、 ノ パレ ッ ト コ ー ド p 
は 0 か ら 65535 ま で の 値 を 取る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 
サイ ズ お よび 色 モ ー ド に より ます 。 


用 例 


ト う 一 
SS ぐ ざ 


/* fi11 sample 


int ai,bi,oi,di,e1,f ュ 


Screen 1,3,1,1 


vpage(1) 


for ai= の to 2990 


bi=rand( ) 
ci=rand( ) 
di=rand( ) 
e1=rand( ) 


mod 512 
mod 512 
mod 512 
mod 512 


fi=rnd( )*65535 


fi11(bi。oi,di ei 。f ュ ) 
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FIX 標準 関数 


float 


fix(⑪ 


戻り 値 float 


浮動 小数 値 f の 小数 点 以下 を 切り す て た 値 を 返し ます 。 


19 /* fix sample 
2 の 9 float af=2.63# 
39 float bf=-5.6# 
49 fl1oat cf=51 

59 print fix(af ) 
69 print fix(Dbf ) 
79 print fix(cf ) 
89 end 


FLOAT ステ ー ト メン ト 


書 式 float < 変数 名 >〔 三 < 定数 式 >]〔, . . .〕 


機 能 変数 を 実数 (float) 型 と し て 宣言 し ます 。 同 時 に 値 を 代入 する こと も で きま す 。 
原則 と し て 、 変 数 宣言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 ま た 、 同 じ 名 前 
の 変数 を メイ ンプ ログ ラム 中 で 再 宣言 する こと は で きま せん 。 


2 char、int、str 


用 例 19 /* float sample 
29 float af=259999909099990# 
39 float bf=-5.68759412E+200# 
4 の float cf=]1#/3,df=-3.254# 
59 print af 
69 print bf 
79 print of,df 
89 end 
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FOPEN 標準 関数 


| 書 式 | fopen(fnmd) 
str 
int 


機 能 指定 され た ファ イル を 、 モ ー ド を 決め て オー プン し ます 。 戻り 値 と し て 、 フ ァイル 番 
号 を 返し ます 。 エ ラー の 場合 は 1 を 返し ます 。 
fn ………… ファ イル 名 
md る 9 る Daieia モー ド 
Y” = テ す で に 存在 し て いる ファ イル を 読み 込み 用 (リー ド ) と し て オー プ 
ン す る 。 フ ァイル が な い 場 合 は エラ ー。 
"w すでに 存在 し て いる ファ イル を 書き 込み 用 (ライ ト ) と し て オー プ 
ン す る 。 フ ァイル が な い 場 合 は エラ ー。 
rw”= すでに 存在 し て いる ファ イル を 読み 書き 両用 (リー ド プ ラテ ライト) と 
し て オー プン する 。 ファ イル が な い 場 合 は エラ ー。 
^c” = 新規 ファ イル を 読み 書き 両用 (リー ド プ ブライト) と し て オー プン す 
る 。 同 一 ファ イル が 、 す で に 存在 し て いる 場合 は 、 そ の ファ イル を 
消去 し て か ら 、 読み 書き 両用 (リー ドブ ライト) と し て 新しく オー プ 
ン す る 。 
特に 、 既 存 フ ァイル の デー タ に 対し て 、 追 加 、 修 正す る 場合 は 、^w” rw” モー ド を 
使用 し ます 。 
オー プン され だ たばかり の ファ イル で は 、 フ ァイル 内 の デー タ ポ イン タ の 位置 は 、 フ ァ 
イル の 先頭 に あり ます 。 デ ー タ ポイ ンタ を 移動 する 場合 は 、fseek 関 数 を 使用 し ます 。 
衣 代 | 8 Pe 
39 str as 


49 dim int aia(99),bia(199) ,cia(9) 
59 1input "ファ イル 名 を 入力 し て くだ さい --->?"jas 
6 の 9 for ai= の 9 to 99 

79 aia(ai ) =&H12345678 

8 の next 

99 /* oreate mode 

199 ai=fopen(as, "oc") 

119 fnrite(aia,199,ai ) 

129 fol]ose(ai ) 

139 /* read/Qrite mode 

149 ai=fopen(as, "rw' ) 


159 /* update */ 

169 fseek(ai,409,9) 

179 cia(9) =&H87654321 

189 bi=fwrite(cia,1,ai ) 

199 if bi<= の then print "update error!" 
2 の 9 /* append */ 

219 fseek(ai, の ,2) 

229 cia( の 9)=&H87654321 

239 bi=fwrite(cia,1,ai ) 
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249 の if bi<= の 9 then print "append error!" 


259 /* read */ 

269 fseek(ai,9,9) 

270 bi=fread(bia,191,ai ) 

289 if bi<= の then print "no data(r/w)!" 
299 print bi 


399 folose(ai ) 
319 /* oreate mode 
329 ai=Ffopen(as, "oc" ) 


339 bi=fread(bia,191,ai ) 

340 if bi<= の then print "no data(c)!" 
359 print bi 

369 foclose(ai ) 

379 end 


FOR-CNEXT ステ ー ト メン ト 


for <int 型 変数 名 > 三 く 初 期 値 > to < 最終 値 > 
く < レー プ の 内 容 > 


next 


for か ら next ま で の 間 で 指定 され た ソレ ー プ の 内 容 > を 、 指 定 さ れ た 回 数 だ け 繰 り 返 し 
(レー プ ) ます 。 

増分 は 1 で す 。 

< 初期 値 > が < 最終 値 > と 等 し い 場 合 は 、 1 回 だ け ツ レー プ の 内 容 > が 実行 され ます 。 ま 
た 、< 初 期 値 > が < 最終 値 > よ り 大 きい 場合 は 、 の レー プ の 内 容 > は 一 度 も 実行 され ま せ 
ん 。 


1 /* for next sample 
2 の int ai,bi 


39 cols 

49 inpot "ステ ッ プ を 入力 し て くだ さい --->"iai 
59 print 

69 for bi= の to 109 

79 C1=b1*a ュ /* step 

89 print bi,oi 

9 の 9 next 

199 end 
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FPUTC 標準 関数 


+ 


fputc(ch,fp) 
char (ch) int (fp) 
int 


指定 され た ファ イル に 1 文字 ずつ 書き 込み ます 。 戻り 値 と し て 、 書き込ん だ 文字 の キ 
ャ ラク タコ ー ド ch を 返し ます 。 フ ァイル へ の 書き 込み が で き な か っ た 場合 や 、 エ ラー 
の 場合 は 、 一 1 を 返し ます 。 


CN ec es 書き こむ キャ ラク タコ ー ド 
fp ……… ファ イル 番号 


キャ ラク タコ ー ド ch は 、0 か ら 255 の 値 を と り ま す 。 ファ イル 内 の デー タ ポ イン タ の 位 
置 は 、1 バ イト ずつ 移動 し て いき ます 。 フ ァイル 内 を ラン ダム アク セス し て デー タ ポ 
イン タ を 移動 する 場合 は 、fseek 関 数 を 使用 し ます 。 


fgetc 


19 /* fputo sample 

2 int ai,Dbi 

39 char ao 

49 str as='"personal workstation 68999ACE!",bs 
59 dim char aoa(31) 

60 input "ラフ ァイル 名 を 入力 て ぐだ さ い ニ = ニー テッ >?" ョ be 
7 の for ai= の to 31 


89 aca(ai)=asc(mid$(aSs,ai+1,1 ) ) 
99 next 

199 ai=fopen(bs,"c") 

110 for bi=@ to 31 

129 ac=aoCa( bi ) 

139 fputoc(ac,ai ) 

149 next 

159 fclose(ai ) 

169 end 
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FREAD 準 関数 


fread (na,n,fp) 
数 値 型 一 次 元 配列 名 (na) ,int (nfp) 


機能 指定 され た ファ イル か ら 、 指 定 され た 要素 数 分 n を 指定 され た 配列 na に 読み 込み ます 。 
戻り 値 と し て 、 実 際 に 読み 込ん だ 要素 数 を 返し ます 。 エ ラー の 場合 は 一 1 を 返し ます 。 


na ee 数 値 型 一 次 元 配 列 名 (nt 型 ま た は 、 char 型 また は 、 float 型 の 一 次 元 
配列 名 ) 

ne 要素 数 (1 バイ ト (char 型 ) ま た は 4 バイト (nt 型 ) ま た は 8 バイ ト 
(float 型 ) 単位 ) 

1. 計 ーー ファ イル 番号 


ファ イル 内 の デー タ ポ イン タ の 位置 は 、 指 定 され た 配列 na の デー タ 型 に 対応 し て 、 
char 型 で あれ ば 1 バイ ト ず つ 、int 型 で あれ ば 4 バイ ト ず つ 、float 型 で も あれ ば 8 バイ ト 
ずつ 移動 し て いき ます 。 フ ァイル 内 を ラン ダム アク セス し て デー タ ポ イン タ を 移動 す 
る 場合 は 、fseek 関 数 を 使用 し ます 。 


+ 


fwrite 
用 例 


19 /* fread sample 

2 int ai,bi。Gi 

39 char ac,bo 

49 float af 

50 str asS 

6 の 9 dim int aia(3),bia(3) 

79 dim char aca(15) ,bca(15) 

89 dim float afa(1),bfa(1) 

99 cls 

109 1inpu も t "ファ イル 名 を 入力 し て く だ さ い ー-->? "jag 
119 /* write file 

129 ai=cfopen(as,"c') 

139 repeat 

149 input "デー タ の 型 タ イプ を 入力 し て くだ さい (int = の , char = 1 , float 


)---> "18G 
159 if ac= の then { 
166 ず fcoir bj= の 9 to 3 
170 input "int 型 デー タ を 入力 し て くだ さ い ---> "ioi 
189 aia( bi ) =ci 
199 ne ゞ t 
290 fnrite(ajia,4,ai ) } 
219 if ac=1 then { 
220 for bi= の 9 to 15 
230 input "char 型 デー タ を 入力 し て くだ さ い --->"ibo 
240 aca( bi ) =bo 
2509 next 
269 furite(aca,16,ai ) } 
る 7 人 め 1T 名 む 2 も hen 1 
280 の で bj=9 も 人 @ }3 
290 input "float 型 デー タ を 入力 し て くだ さい ー--->"iaf 
3909 afa(bi)=af 


119 


第 4 章 


リア アレ シ ス 


next 
fwrite(afa,2.ai ) } 
unti] ao<=2 
fcl1ose(ai ) 
cls 
/* read file 
ai=fopen(as,"rw") 


print "書き 込ん だ ファ イル ("+as+") の 内 容 を 表示 し ます ":print 


if ao= の then [ 
fread(bia,4.ai ) 
for bi= の 9 to 3 


print "デー タ の ポイ ンタ の 位置 (":fseek(ai,bi*4,.9)j") 


print bia(bi ) 
nex ぶ 1 
1 まま ね G=】 も hem f 
fread(boa,16,ai ) 
for bi=9 to 15 


print "デー タ の ボイン タ の 位置 ("jifseek(ai,bi,9)j") 


print boa( bi ) 
neNt} 
3f ac=2 も hen 
fread(bfa,2,ai ) 
ず for bi=9 to 1 


print "デー タ の ボイン タ の 位置 (":fseek(ai,bi*8.9)j") 


print bfa(bi ) 
next} 
fclose(ai ) 
end 
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FREADS 標準 関数 


freads(st,fp) 


str 型 変数 名 (st) ,int (fp) 


int 


能 指定 され た ファ イル か ら 1 行 を str 型 変数 st に 読み 込み ます 。 戻り 値 と し て 、 フ ァイル 
か ら 読 み 込ん だ 文字 数 を 返し ます 。 フ ァイル の 最後 まで 読み 込ん だ 場合 や 、 す で に 読 
み 込 ん で いる 場合 ある い は エラ ー の 場合 は 、 一 1 を 返し ます 。 


に 読み 込ん だ 文字 列 を 格納 する str 型 変数 名 

販 tos ファ イル 番号 
1 行 の 読み 込み を 終了 する の は 、 改 行 (CR(&HOD)、LF(&HO0A) ) が 現われ た と き 
か 、st の 文字 バッ ファ が いっ ぱい に な っ た と き で す 。 フ ァイル の 読み 込み を 終了 する の 
は 、 フ ァイル が 終わ っ た 時 か 、 フ ァイル 終了 コー ド (&H1A) が 現われ た と き で す 。 
な お 、st の 文字 バッ ファ に は 、 改 行 お よび ファ イル 終了 コー ド は 書き 込ま れ ま せん 。 
ファ イル 内 を ラン ダム アク セス し て デー タ ボ ポインタ を 移動 する 場合 は 、fseek 関 数 を 
使用 し ます 。 


fwrites 


用 例 
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=chr$ 
179 


/* freads sample 

int ai 

str as,bs[255] 

cls 

1input "ファ イル 名 を 入力 し て くだ さい --->?2"jas 

/* write file 

ai=fopen(as, "co") 
print "書き 込む ファ イル 名 は 、"+as+" で す " 

while bs<>ohr$(26) 
bg=”“ 
print "終了 する 場合 は 、'ace 
1input "文字 や 文字 列 を 入力 し 
だ GE = CYS ま (13) 。 1f = Gre(# 
bs=bs+chr$(13)+ohr$(10) 
/* ctr1 + ZZ = chr$(26 ) 
if bs="ace"+chr$(13)+chr$(19) then prin も t "ファ イル を クロ ー ズ し ます ": 

( 26 ) 
furites(bs,a1 ) 

endwhi]e 

fclose(ai ) 

cl1s 

for ai= の to 199909:next 

/* read file 

print "書き 込ま れ た ファ イル ("+as+") の 内 容 を 表示 し ます "“ 

9 品 = 

ai=fopen(as, "rw") 

repeat 
print bs 
freads(bs,ai ) 

until feof(ai )=-1 

fclose(ai ) 

end 
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free 
戻り 値 int 
現在 の メモ リ 上 の フリ ー エ リア を 返し ます 。 代 入 す る こと は で きま せん 。 


| 1 の /* free sample 
26 Print ro8 
39 end 


FREINAME 標準 関数 


frename(fn1 , fn2) 


str 
戻り 値 int 


ファ イル 名 fn1 の ファ イル を ファ イル 名 fn2 に 変更 し ます 。 変更 で きた 場合 、 戻り 値 と 
し て 0 を 返し ます 。 エ ラー の 場合 は 1 を 返し ます 。 


fn1 ………… 変更 し た い フ ァイル 名 
mr 変更 後 の フ ァイル 名 
用 例 19 /* frename sample 


29 int ai 
39 str as,bs 
49 cls 


5 の 9 1input "変更 し た い フ ァイル 名 を 入力 し て く に 全 い ニ ュー ク ? りつ 
69 ]input 新しく つけ る ファ イル 名 を 入力 し て くだ さい --->27 j bs 
79 print "ファ イル 名 ("+as+") を ファ イル 名 ("+bs+") に 変更 し ます " 
89 ai=frename(as,bs ) 

90 if ai<>9 then print "ファ イル 名 の 変更 が で きま せん 

199 print "ファ イル 名 の 変更 が で きま し た " 


119 end 
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FSEEK 標準 関数 


用 例 


fseek (fp,os,md) 

int 

int 

指定 され た ファ イル 内 の デー タ ポ イン タ を 移動 し ます 。 フ ァイル を シー クモ ー ド md 
で 指定 され た 位置 か ら 1 バイ ト 単 位 で ラン ダム アク セス する と き に 使用 し ます 。 シ ー 
クモ ー ド md で 指定 され た 位置 か ら 、 オ フ セ ッ ト os で 指定 され た と ころ まで 、 ラン ダム 


アク セス 後 、 新 し い デ ー タ ポイ ンタ の 位置 を 返し ます 。 エ ラー の 場合 は 1 を 返し ま 
9 


eee ファ イル 番号 
OS の オフ セッ ト バイ ト 単 位 ) 
md ………ー シ ー ク モー ド 

0 = ニ フ ァ イル の 先頭 

1 三 現在 の 位置 


2 ニ フ ァ イル の 終わ り 


10 /* fseek sample 
29 int ai,bi 

39 char ao 

49 str as="personal workstation X68999ACE!",bs 
59 dim ohar aoa(31 ) , boa (9 ) 

69 1inpun も t "ファ イル 名 を 入力 し て くだ さい ーー-->2"jBs 
79 for ai=9 の to 31 


89 aca(ai) =asc(m1id$(as,ai+1,1 ) ) 
99 next 

199 ai=fopen(bs,"c") 

1109 for"bi= の to 31 

1209 ac=aca(b1 ) 

139 fputo(ac,a1 ) 

149 next 


159 fcl1ose(ai ) 
169 ai=fopen(bs, "rw") 


1709 fseek(ai,29,0) 

189 for bi= の to 9 

1909 fseek(ai,1,1) 

2090 boa(bi ) =fgeto(ai ) 
219 fseek(ai,-1 1 ) 

220 print chr$( boa(bi ) ) : 
230 next 

249 fclose(ai ) 

259 end 
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FUNC-CENDFUNC<-RETURN( ) 。 テ ーッ メン 


書 式 


func 〔< 戻 り 値 の 型 >] < 関数 名 >(〔< 引 数 リス ト 〕) 
< 関数 の 内 容 > 


endfunc 


関数 を 定義 し ます 。func 一 endfunc の 関数 は 、 必 ず end 命 令 以 後に 定義 し ます 。 ま た 、 
func 一 endfunc の 関数 内 で は 、 ロ ー カ ル 変 数 を 指定 で き 、 再 帰 呼び 出し も で きる よう 
な 構造 に な っ て いま す 。 た だ し 、 原 則 と し て 配列 変数 な ど は メイ ンプ ログ ラム の 先頭 
で 宣言 し で くだ きい 。 

通常 、 引数 は カン マ ( , ) で 区 切っ て < 引数 リス ト > に 記述 し ます 。 引数 が な い 場 合 は 省 
略 可能 で す 。 

それ ぞ れ の 引数 に つづ け て セミ コロ ン ( ) を 書き 、 そ の 後に デー タ 型 を 指定 する こと 
が で きま す 。 こ の デー タ 型 の 指定 を 省略 する と 引数 の デー タ 型 は int 型 に な り ま す 。 
メイ ンプ ログ ラム 中 で 、 定 義 さ れ た 関数 に 渡す 引数 の データ 型 や 個数 は 、< 引 数 リス ト > 
の デー タ 型 や 個数 と 一 致 き さき せ て くだ さい 。 

func 一 endfunc で 定義 され た 関数 か ら 演算 結果 な どの 値 を 返し た い 場 合 は 次 の よう な 
命令 を func 一 endfunc で か こま れ た 中 で 使用 し ます 。 


return (〔< 戻 り 値 2)) 


func 一 endfunc で 定義 され た 関数 か ら こ の return 命 令 に よっ て 返さ れる 戻り 値 の デ 
ー タ 型 は 、< 戻 り 値 の 型 > で 指定 する こと が で きま す 。 省略 し た 場合 は int 型 に な り ま 
func 一 endfunc で 定義 され た 関数 は 、 プ ログ ラム と し て メモ リ 上 に 存在 し て いれ ば ダ 
イレ クト モー ド で も 実行 で きま す 。 


199 /* funo sample. coast oreation */ 

119 float s 

129 while s<1 or s>=2 

139 input "ratio 1 to 2"js 

149 endwhile 

159 s = (s-1 ) / 19+ 1 

169 scoreen 1,2,1,1 

179 s=sqr( Ss*S-1 ) 

189 float x9 の =199, x1=412, y9= の 9, y1= の 9 

199 fraota] (x の 9,x1,y9,y1,1 ) 

299 1ine(199, 59, 412, 59, 255, 65535) 

219 end 

229 funo fracta1(x9jfloat,x1jfloat,y の if1oat,y1jf1oat,spiint ) 
239 Eo も ココ 。 ァ , XZ2。 が 2 

249 1=sqr((x1-x9)*(x1-x9)+(y1-y9 )*( テ 1- ァ 9 ) ) 
259 if 1<2 or sp>=9 then { 

269 1ine(x9,y9/3+59,x1,y1/3+59,255,65535) : return( ) 
270 } 

289 r=rnd ( ) +rnd( )+rnd( ) -2 

299 x2=(x の +x1 ) /2+s* ネ (1-y の ) *# エ 

399 2= (9 の + ッ 1 ) /2+s*( x の -xx1 ) * ャ 

310 SD = Sp + 1 

329 fracta1(x9,x2,y9, テ 2 , sp ) 

339 fraota1(x2,x1,y2, 了 1 ,sp) 

349 endfuno 
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FWRITE 


+ 


fwrite(na, n, fp) 


数 値 型 一 次 元 配 列 名 (na) , int (n, fp) 


int 


指定 され た 配列 na の デー タ を 、 指 定 さ れ た 要素 数 分 n だ け 指 定 さ れ た ファ イル に 書き 
込み ます 。 戻り 値 と し て 、 実 際 に 書き 込ん だ 要素 数 を 返し ます 。 エ ラー の 場合 は 1 


を 返し ます 。 
ma で の の の 数 値 型 一 次 元 配 列 名 Gnt 型 また は 、char 型 また は 、 float 型 の 一 次 元 
配列 名 ) 
UECOOOHG 要素 数 (1 バイ ト (char 型 ) ま た は 4 バイ ト (int 型 ) ま た は 8 バイ ト 
(float 型 ) 単 位 ) 
物 eew… ファ イル 番号 


ファ イル 内 の デー タ ポ イン タ の 位置 は 、 指 定 さ れ た 配列 na の デー タ 型 に 対応 し て 、 
char 型 で あれ ば 1 バイ ト ず つ 、int 型 で あれ ば 4 バイ ト ず つ 、float 型 で も あれ ば 8 バイ ト 
ずつ 移動 し て いき ます 。 フ ァイル 内 を ラン ダム アク セス し て デー タ ポイ ンタ を 移動 す 
る 場合 は 、fseek 関 数 を 使用 し ます 。 


fread 


/* fwrite sample 
int ai,bi 
str aS 
dim int aia(5),bia(5),cia(9 の ) 
dim char aoa(23) ,bca(23) ,coa(9) 
1inpu も "ファ イル 名 を 人 人 力 し て くだ さい --->? "jag 
for ai= の to 5 
aia(ai)=&H12345678 
nex 上 
/* write 
ai=fopen(as,"c") 
fwrite(aia,6,ai ) 
fclose(ai) 
/* read 
ai=fopen(as, "re') 
fseek(ai,8,9) 
fread(cia,]1,ai ) 
print "int type data (No.2)=":ihex$(cia(9) ) 
fseek(ai,8.9) 
fread(cca,1,a1 ) 
print "char type data (No.8)=":ihex$(coa( の ) ) 
/* int read 
fseek(ai,9,9) 
fread(bia,6,ai ) 
/* char read 
fseek(ai,9,9) 
fread(bca,24.ai ) 
foclose(ai ) 


print "int array"i" "1 "Char array" 
for ai= の 9 to 5 

bi=ai*4 

print "bia( "iaii")="ihex$(bia(ai ) ) : 

print “" し 


pFin も "bea( "iibii")=" hex$(bea(5i))3" "5 
print "bea("ibi+1:")="ihex$(bea(bi+1))17 「i 
print "bea("ibi+2:")="ihex$(bca(bi+2))57  「i 
print "bca("ibi+3:")="ihex$(bca( bi+3 ) ) 

nex も 

end 
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リフ ァ レ ンス 


F WRITES 標準 関数 


fwrites(st, fp) 


引 


数 str 型 変数 名 (st) int (fp) 
直 int 


能 指定 され た ファ イル に str 型 変数 st の 1 行 を 書き 込み ます 。 戻り 値 と し て 、 フ ァイル に 


書き 込ん だ 文字 数 を 返し ます 。 エ ラー の 場合 は 、 一 1 を 返し ます 。 


SXGA 書き 込む べき 文字 列 を 格納 し て いる str 型 変数 名 

ore ファ イル 番号 
null 文 字 (キャラ クタ コー ド の 0 ) は 書き 込み ませ ん 。 フ ァイル 内 を ラン ダム アク セス 
し て デー タ ポ イン タ を 移動 する 場合 は 、fseek 関 数 を 使用 し ます 。 


に 】 freads 


1109 Ba="" 

129 pr3nt "終了 ず す る 場合 は 、"aee“" を 大 力 * し て ぐだ さい 7" 

139 1input “文字 や 文字 列 を 入力 し て くだ さい --->?"jbs 

140 / ネ CD = GNDNC も (13) 。 遇 ff = GoNnSi(1 の ) 

159 bs=bs+ohr$(13)+chr$(19) 

169 /* でも rl + 2 = Gohr$( 26 ) 

179 if bs="aoe"+chr$(13)+chr$(19) then print "ファ イル を クロ ー ズ し ます " 
=chr$(26) 

180 furites(bs,ai ) 

199 endvhile 

299 folose(ai ) 

219 for ai= の 9 to 1099909:next 

ら 22 の Dint 

239 re file(" 書 き 込 まれ た ") 

249 print 

259 /* update file 

269 ai=foperi(as, "rw" ) 

279 chile -1 

280 linput "修正 する 文字 が あり ます か ?<y/n>---> "ios 

299 if os="n" then break 

3909 1input “修正 し た い 文 字 を 入力 し て くだ さい --->?"ijds 

310 repeat 

320 ac=fgeto(ai ) 

330 if ao=13 then bc=bo+1:oontinue 

340 if ao=19 then bo=bo+1 :continue 

359 if aco=26 then break 

369 if bo=1 or bo=2 then print 

379 if asc(ds)=ac then { 

389 color 2 


/* file sample 
int ai 
char ac, bc 
str as,bs[255],cs,ds,es,fs,bun 
cls 
1input "ファ イル 名 を 入力 し て くだ さい --->?"jas 
/* write file 
ai=fopen(asS, "oc") 
print "書き 込む ファ イル 名 は 、"+as+" で す " 
while bs<>ohr$(26 ) 


print chr$(ac ) 
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: bs 


color 3 
input "この 文字 で よろ し いで すか ? <yY/n>---> "ieS 
if es<>"y" て then continue 
linput "新しく 修正 する 文字 を 入力 し て くだ さい --->?7jfs 
fseek(ai,-1,1) 
fputc(aso(fs),ai ) 
es="":oontinue}) else 1 
color 3] 
print ohr$(ao) 
be=9 
until feof(ai)=-1 
if ac<>26 then print "修正 する 文字 が あり ませ ん で し た ":break 
break 
endwhile 
print・print 
re file(" 修 正 さ れ た ") 
end 
/* read file 
funo re file(bunistr ) 
print bun+" フ ァイル ("+as+") の 内 容 を 表示 し ます " 
1 
ai=fopen(aS, rt で”) 
fseek(ai,9,9) 
repeat 
print bs 
freads(bs,a1i ) 
unti1 feof(ai)=-1 
foclosea11() 
endfuno 


GCVT 準 関数 


式 gcVt (f, 1) 

数 float(f),intG) 

値 str 

能 浮動 小数 値 f を 文字 列 に 変換 し 、 そ の 文字 列 を 返し ます 。 


PsasE3 お か 文字 列 に 変換 し た い 浮 動 小 数 値 
佐 COCO 文字 列 の 桁 数 


通常 は 指定 され た 桁 数 の 実数 表現 に 変換 し ます が 、 そ れ が で き な い 場合 は 指数 表現 に 
変換 し ます 。 先頭 の “0” は 変換 の 際 に 取り 除 か れ ま す 。 


atof、ecvt、fcvt 


3 
19 /* govt sample 
I 
29 float af,bf,of 


39 af=25999999990900# 
49 bf=-2.6546681E+205# 
59 of=-5.2365426E-918# 
69 print str$(af ) 

79 print govt(af,20) 
89 print str$(bf ) 

99 print govt( bf , 20 ) 
199 print str$(of ) 

119 print govt(cf , 20 ) 
129 end 
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GRAPH 


get (x1 ,y1,x2,y2.,na) 
int(x1,y1,x2,y2) , 数 値 型 一 次 元 配 列 名 (na) 
Void 


グラ フィ ッ ク 画 面 の 指定 領域 の ドッ トノ パターン を 指定 され た 配列 na に 読み 込み ます 。 


了 放 Seo 始点 X 座 標 
ee 始点 Y 座 禁 
SL oi 終点 X 座 禁 
寺 wesieaed 終点 Y 座 禁 
na ot ドッ トバ パタ ー ン を 読み 込む 数 値 型 一 次 元 配 列 名 


x1、y1、x2、y2 は 、window 関 数 で 指定 され た 範囲 内 の 値 を 取る こと が で きま す 。 ま 
た 、 配列 na へ の ドッ ト パ タ ー ン の 読み 込み か た と し て は グラ フィ ッ ク 画 面 の 実 画面 サ 
イズ お よび 色 モ ー ド に より 次 の よう に な り ま す 。 


実 画面 サイ ズ 1024X1024、16 色 モー ド ( 4 ビッ トノ ドッ ト 構 成 ) 
読み 込み 順 = (x1, y1) , (x1 十 1, y1) ,…… , (x2, y1) , (x1, y1 填 1) , (x1 二 
1 y1 十 1) …… 5 (x2.-Y2) 
char 型 配列 の 場合 三 2 ドッ ト 単 位 
int 型 配列 の 場合 三 8 ドット 単 位 
float 型 配列 の 場合 三 16 ド ッ ト 単 位 

実 画面 サイ ズ 512X512、16 色 モー ド 
実 画面 サイ ズ 1024X1024、16 色 モー ド と 同様 
但し 、apage 関 数 に よっ て 、 指 定 さ れ た アク ティ ブ ペ ー ジ (0 - 3 ) に 対し て の 
み 有 効 

実 画面 サイ ズ 512X512、256 色 モー ド (1 バ イト ノド ッ ト 構 成 ) 
読み 込み 順 三 実 画面 サイ ズ 1024X1024、16 色 モー ド と 同様 
char 型 配列 の 場合 1 ドッ ト 単 位 
int 型 配列 の 場合 三 4 ドッ ト 単 位 
float 型 配列 の 場合 三 8 ドット 単位 
但し 、apage 関 数 に よっ て 、 指 定 さ れ た アク ティ ブ ペ ー ジ (0 、1 ) に 対し て の 
み 有 効 

実 画面 サイ ズ 512X512、65536 色 モー ド ( 2 バイ トノ ドッ ト 構 成 ) 
読み 込み 順 三 実 画面 サイ ズ 1024X1024、16 色 モー ド と 同様 
char 型 配列 の 場合 三 2 要素 1 ドッ ト 単 位 
int 型 配列 の 場合 三 2 ドッ ト 単 位 
float 型 配列 の 場合 三 4 ドッ ト 単 位 
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グラ フィ ッ ク 画 面 へ の 書き 込み に つい て は put 関 数 を 参照 し て くだ さい 。 


2 put 


GOSUB<--RE'TURN ステ ー ト メン ト 


書 式 gosub <《 行 番号 > 


機能 指定 し た サブ ルー チン を 呼び 出し 、return 命 令 で も どり ます 。 
た だ し 、gosub 命 令 を 使用 し た プロ グラ ム は 、 行 番号 に 依存 し た プロ グラ ム に な る た だ ため 
1oad@ 命 令 、 save@ 命 令 は 使用 で きま せん 。 ま た 、 renum 命 令 に よる < 行 番号 > の 変更 
も で き な く な り ま す 。 


2 gOtO 
用 例 10 /* gosub return sample 
20 print "super 「: 


39 gosub 109 

49 print "SHARP" 

59 end 

109 print "persona1 workstation X68099ACE" 
119 return 


129 


第 4 章 リフ ァ レ ンス 


GOTO 


2 ペー ド 2 トド 


[きま ミ 」 


機 能 


用 例 


goto < 行 番号 > 


指定 し た 行 に ジャ ンプ し ます 。 
た だ し 、goto 命 令 を 使用 し た プロ グラ ム は 、 行 番号 に 依存 し た プロ グラ ム に な る た め 
load@ 命 令 、 save@ 命 令 は 使用 で きま せん 。 また 、 renum 命 令 に よる < 行 番号 > の 変更 
も で き な く な り ま す 。 
goto 命 令 で 、for 一 next、while 一 endwhile な どの プ ブロッ ク 構 造 か ら 外 に 出 て し まう と 
プ ブロ グラ ム の 動作 が 正常 で な く な る 可能 性 が あり ます 。 

19 /* goto sample 

20 print "super " 


39 goto 199 
49 end 


109 print "personal] workstation X68999ACE" 


標準 関数 
hex$⑪) 
int 
str 


整数 値 , を 16 進 表現 の 文字 列 に 変換 し 返し ます 。 な お 、 上 位 の ヾ 0 は 取り 除 か れ ま 
9.8 


bin$、oct$ 


19 /* hex$ sample 

2 の int ai , bi 

39 ai=-255 

49 bi=1995423099 

59 print hex$(ai ) 

69 print hex$(bi ) 

7 の print hex$(ai)+hex$( bi ) 
89 end 
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HOME GRAPH 


書 式 home (pa, X, Y) 
引 数 char (pa) , int (x, Y) 
戻り 値 void 


機能 グラ フィ ッ ク 画 面 の 実 画面 に お ける 表示 画面 の 左上 座標 を 指定 し ます 。 


Da "の の の リク ブフ ナイ グー ジ 
2 実 画面 に お ける 表示 画面 の 左上 X 座 標 
oe 実 画面 に お ける 表示 画面 の 左上 Y 座 標 


アク ティ ブ ペ ー ジ pa は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド に より 最大 値 
(0 一 3 ) が 決ま り 、x、y も 同様 に グラ フィ ッ ク 画 面 の 実 画面 サイ ズ に より 、 実 画 面 サ 
イズ が 512※X 512 の 場合 は 0 か ら 511 ま で 、 あ る い は 実 画面 サイ ズ が 1024X 1024 の 場合 
は 0 か ら 1023 ま で の 値 を 取る こと が で きま す 。 

screen 命 令 を 実行 する と (x,y) に は (0.0) が 再 設 定 さ れ ま す 。 


apDage、 Screen、YvYDage、 Window 


に 
| 19 /* home sample 
2 ee ea 
39 fl1oat af 
4 の scoreen 1,1,1,1 
59 vpage(9) 
69 eindow(9,9,511,511) 
79 apage(9) 
89 kyu(09) 
99 apage(1 ) 
109 kyu(1) 
119 apage(2) 
129 kyu(2) 
139 apage(3) 
149 kyu(3) 
159 vpage(15) 
169 while -1 
17 の 9 for ai=O to 511 


189 af=pi()*ai/512 

199 bi=sin(af)*511 

290 home(9,ai,bi ) :home(1,bi,ai ) 

219 home(2,511-ai,bi ) :home(3,bi,511-ai ) 
229 next 

239 endwhile 

249 end 


259 funo kyu(ai ) 

269 circle(128,128,59,ai*4+1 ) 
279 paint(128,128,ai* ネ 4+1 ) 

289 circle(256,256,59,ai*4+2 ) 
299 paint(256,256 ,ai*4+2 ) 

399 oirole(384,384 ,59,a1*4+3 ) 
319 paint(384,384 ,ai*4+3 ) 

329 endfuno 
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HSV GRAPH 


書 式 hsv (hu, sa, va) 
char 
int 


機 能 色相 (hu)、 飽 和 度 (sa)、 明 る さ (vaJ か ら カ ラー コー ド を 求め ます 。 


hu ………… 0 一 191 
So 0 一 31 
2 CCOCUCCLD 0 一 31 


な お 、 こ の hsy 関 数 に よっ て 得 ち られ る カラ ー コ ー ド は 、0 一 65534 ま で の 偶数 値 に な り 
ます 。 し た が っ て 、 それ ぞ れ の 偶数 値 に 1 を 加える こと で 、0 一 65535 ま で の カラ ー コ 
ー ド を 指定 で きま す 。 


19 /* hsv sample 

29 int ai,。bi,oi 

3 の 9 screen 1,3,1,1 

49 vpage(1) 

59 for ai= の to 15 

69 for bi=9 to 3 

79 for oi= の to 2 

809 kyu(b1i*128,C1k17 の 9,a1* ネ 12+bi*3+oi ) 
99 next 

1909 mex も 

11 の 9 next 

129 end 

139 funo kyu(diiint,eiiint,fi:int) 
140 int g1。hi,11 

159 fi11(di,ei,di+127 ,ei+169,9) 
169 for gi= の to 31 


179 hi=31-gi 

1809 ずら ユミ の も G 1 

199 cirole(di+64,ei+64,hi*2+ ュ 11,hsv(f1i,31,g1i)+11, の ,369,256 ) 
2090 paint(di+64,ei+64,hsvy(fi,31,gi )+ii ) 

210 next 

229 next 


239 endfuno 
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IF-THEN-CELSE ステ ー ト メン ト 


書 式 if < 条件 > then < 文 > 〔else < 文 2 


機能 < 条件 > で 条件 判断 を 行い 、 そ の 結果 に 応じ て < 文 > を 実行 し ます 。 
if に 続け て < 条件 > を 指定 し ます 。 そ の < 条件 > が 満た され た と き は then 以 下 の < 文 > が 実 
行き され 、 そ う で な いと き は else 以 下 の < 文 > が 実行 され ます 。 
else 以 降 は 省略 する こと が で きま す 。 その 場合 、 条件 が 満た され な か っ た と き は 次 の 行 
が 実行 され ます 。 
条件 に は 、 以 下 の よ うな 比較 演算 子 と 論理 演算 子 と が 使え ます 。 論 理 演算 子 は 、 複 数 
の 条件 を 指定 する と き に 使い ます 。 


比較 演算 子 意 味 例 
式 1 ニ 式 2 式 1 が 式 2 と 等 し い 遂 a 三 3 
式 1 く > 式 2 式 1 が 式 2 と 等 し く な い if a<>0 
式 1 < 式 2 式 1 が 式 2 よ り 小さ ぃ い if a<10 
式 1 > 式 2 式 1 が 式 2 よ り 大 きい 輝 ab 


式 1 く = 式 2 式 1 が 式 2 と 等 し いか 、 式 2 より 小さ い 容 ぁ そ bf や 1 
式 1>= 式 2 式 1 が 式 2 と 等 し いか 、 式 2 より 大 きい 下 a>="m" 


(a は str 型 ) 


論理 演算 子 例 意 味 
not if not (a 三 1) a が 1 で な けれ ば then 以 下 を 実行 
and  a 三 0 anmd b 三 3 a が 0 で 、b が 3 の と きのみ then 以 下 を 実行 
or if a< く 0 or b=0 a が 0 より 小さ いか 、b が 0 の と き に then 
以下 を 実行 


then 節 また は else 節 は 、{ } と 組み 合わ せ て 、 複数 行 の 条件 判断 に 使用 で きま す 。 


用 例 19 /* if then el]se sample1 */ 
29 int ai,bi 
39 input "(1)1+2=" jai 
49 input "(2)2+3="ibi 
59 if ai=3 then { 


69 if bi=5 then 【 

79 print "(1),(2)ok!" }) e1se { 

89 print "(1)ok!,(2)error!" )) e1se { 
99 if bi=5 then [{ 

199 print "(1)error,(2)ok!" ) el1se 【 

119 print "(1)error!,(2)error!" })]} 

129 end 
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19 /* if then else sample */ 

29 int ai 

39 input "1+2=" jai 

40 if ai<=9 then print "error!" else { 


59 if ai=1 then print "error!" ese { 

69 if ai=2 then print "error!" else { 
79 if ai=3 then print "ok!" else { 
89 DS も "emmo や 9" ず )) 

99 end 


IMG COLOR IMAGE 


書 式 img color(md) 
char 
void 


漠 
避 


取り 込み 画像 の グラ フィ ッ ク フ パレット を 補正 し ます 。 


md ……… グラ フィ ッ ク 画 面 の 色 モ ー ド (0 一 2 ) 


モー ド md の 値 と 意味 は 次 の と お り で す 。 
0 ニ グ ラフ ィ ッ ク 画 面 16 色 モー ド 
1 = ニ グラフィ ッ ク 画 面 256 色 モー ド 
2 ニ グ ラフ ィ ッ ク 画 面 65536 色 モー ド 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 が 必要 で す 。 
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IMG_ HOME 


img home(x, y, dir, cnt, wt) 
int (x, , cnt, wt) , char (dir) 
void 


グラ フィ ッ ク 画 面 の 表示 画面 の 位置 を 移動 し ます 。 


1 = 左下 


9 三 右上 


IMAGE 


な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニット CZ-6VT1 が 必要 で す 。 
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IMG _HT 
書 式 img ht(x1,y1,x2.y2,p,a) 
引 数 int(x1.y1,x2.y2) , char (p,a) 

void 
機 能 グラ フィ ッ ク 画 面 と テレ ビ ・ ビ デオ 画面 と の 半 透 明 表 示 を 制御 し ます 。 


x1 ……… グラ フィ ッ ク 画 面 の 半 透 明 領域 の 始点 X 座 標 

ne グラ フィ ッ ク 画 面 の 半 透 明 領域 の 始点 Y 座 標 

2) NoReeicpoe グラ フィ ッ ク 画 面 の 半 透 明 領 域 の 終点 X 座 標 

scipesees グラ フィ ッ ク 画 面 の 半 透 明 領域 の 終点 Y 座 標 

孤 e oe ems 指定 され た 領域 内 の グラ フィ ッ ク 画 面 の 半 透 明 表示 の 設定 (0 = 設 
定 し な い 、 1 三 設定 する ) 

EHDO 半 透 明 表示 の 制御 (0 = 半 透 明 表 示 を 実行 し な い 、1 三 半 遂 明 表示 を 
実行 する ) 


な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 が 必要 で す 。 


IMG LOAD 隊 


若 | | 測 | || | 暗 
避 | | 語 | | 攻 | 必 


img load(st〔, x]〔, 世 ) 
str (st), int (x, ) 
int 


グラ フィ ッ ク 画 面 を ロー ド し ます 。 戻り 値 と し て 、 正 常 の と き は 0 、 エ ラー の と き は 一 
由記 し 齋 93 


St ………… 主 フ ァイル 名 
ーー ロー ド す る グラ フィ ッ ク 画 面 の 左上 X 座 標 
urekrvt ロー ド す る グラ フィ ッ ク 画 面 の 左上 Y 座 標 


拡張 子 は 、img save 関 数 を 参照 し て くだ さい 。 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 が 必要 で す 。 
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IMG POS 間 


書 式 img pos(hc) 
引 数 char 
void 
機能 画像 取り 込み 時 の 画面 水平 位置 を 補正 し ます 。 
he ……… 水平 位置 補正 デー タ (0 一 255) 
@ 表 示 画 面 サイ ズ が 512x512 の 場合 
画像 取り 込み する 際 、 は じ め は &H9A に セッ ト し 、 静止 画 に し た 後 和 を H2C に 設定 し 
ます > 
@ 表 示 画 面 サ イズ が 256X256 の 場合 
は じ め は &HEB に セッ ト し 、 静 止 画 に し た 後 、 科 H24 に 設定 し ます 。 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジ ユ ニ ッ ト CZ-6VT1 が 必要 で す 。 
IMG PUT 還 
img put(x1,y1,x2,y2,ia) 
引 数 int(x1,y1,x2.y2) , int 型 一 次 元 配列 名 (ia) 
sa 
グラ フィ ッ ク 画 面 の (x1,y1) か ら (x2,y2) ま で 、 8 ドット ご と に 移動 し な が ら 、 配 列 


ia の デー タ を 256X256 ド ッ ト の ボッ クス で 表示 し ます 。 


1 グラ フィ ッ ク 画 面 の 始点 X 座 標 
y1 ……… グラ フィ ッ ク 画 面 の 始点 Y 座 標 
潮 saasesxs グラ フィ ッ ク 画 面 の 始点 X 座 標 
Y2 tt グラ フィ ッ ク 画 面 の 始点 Y 座 標 
ia ……… get 関 数 で 読み 込ん だ int 型 一 次 元 配 列 名 


な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ニッ ト CZ-6VT1 が 必要 で す 。 
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IMG SAVE 


只 


式 


落 | | 測 
鼓 | | 庫 | 必 


img save(st〔, x〕〔, 切 ) 
str (st) , int(x, y) 


int 


IMAGE 


グラ フィ ッ ク 画 面 を セー ブ し ます 。 戻り 値 と し て 、 正 常 の 時 は 0 、 エ ラー の 時 は 1 


を 返し ます 。 
St ………・ 9 牧 2 ア イ ル 名 
拡張 子 は グラ フィ ッ ク 画 面 の スク リー ン モ ー ド に 応じ て 以下 の よう に 付加 され ます 。 
表示 画面 サイ ズ 色 モ ー ド 拡張 子 
256x256 16 色 GS0 
256X256 256 色 GM0 
256X256 65536 色 GL0 
512x512 16 色 GS3 
512X512 256 色 GM3 
512x512 65536 色 GL3 
HOOEHOO セー ブ す る グラ フィ ッ ク 画 面 の 左上 XX 座標 
YO の セー ブ す る グラ フィ ッ ク 画 面 の 左上 Y 座 標 


な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユ ニット CZ-6VT1 が 必要 で す 。 


138 


IMG SCRN 結 


img scrn(sz, co, dis) 
int 
Void 


グラ フィ ッ ク 画 面 の スク リー ン モ ー ド を 設定 し ます 。 
た だ し 、 グ ラフ ィ ッ ク 画 面 ク リア 、 パ レッ ト ・ コ ント ラス ト ・ 表 示 モ ー ド の 初期 化 は 
行い ませ ん 。 


tee 表示 画面 サイ ズ (0 一 2) 
0 三 256X256 
1 三 512X512 
2 三 768X512 
CD eee グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド (0 一 3) 
0 =1024X1024 16 色 
1 =512X512 16 色 
2 =512x512 256 色 
3 512X512 65536 色 
ea ディ スプ レイ 解像度 (0 、 1 ) 
0 標準 解像度 
1 高 解像度 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニ ッ ト CZ-6VT1 が 必要 で す 。 
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IMG SET M 


書 式 img set(c〔,c]〔,cJ【, c〕【, c〕 ) 
引 数 char 
void 
機能 カラ ー イ メー ジュ ユニット CZ-6VT1 の 各種 コン トロ ー ル を 行い ます 。 
EE カラ ー イ メー ジ ユ ニ ッ ト の コン トロ ー ル コー ド (&H00 一 HEFF) 


コン トロ ー ル コー ド 一 覧 表 (使用 ポー ト ア ドレ ス E8E005H) 


ul ョ ー ド 命令 備 考 


16) モ ー ド 
0 00d)| 00000 | 65536 色 (2"『) モ ー ド 


1| 01 | 00o 
トー 一 空き 
2 
コン ピュ ー タ コン トロ ー ル モー ド | 赤色 ラン プ 点 灯 
4 マニ ュ ア ルモード 緑色 ラン プ 点 灯 
5| 05 | 00101 ||「 カ ラー イメ ー ジ | モノ クロ 画像 EN 
6| 06 | 0ol0 の 
テロ ッ ノ マ 
7| 07 | oonn セッ ト で 解除 きれ る 。 
8| 08 | oi000 リセ ッ ト っ 3 の 人 守 に 記す 。 
9| 09 | 01001 色 の 渡さ UP 
10| 0A | ol0n0 2 濃 DOWN =5 
11| 0B | 01011 色あい UP 
1 2 PP 
1 01100 色あい DOWN 


2 
レー ト 
13| 0D 01101 映像 UP 
14 | OE 01110 映像 DOWN 


15| OF 01111 | 256 色 (27) モ ー ド 


議 
16| 10 | 10000 || | リモ ッ ト ョ ーー ドド lo 1 は 
7| mn | ooa 色 の 濃 さ UP 
1s| 2 | 10o0 @ の 韻 DOWN 
19| 13 | 10on テロ ッ パ | 色あい UP 
20| 14 | 1000 る あい DOWN 
aa| 5 | mo 映像 UP 


22| 16 10110 映像 DOWN 


23| 17 10111 16 色 (2 モード 
24 | 18 11000 | 
! ! ! 空き 
1| 思 11111 


な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ニッ ト CZ-6VT1 が 必要 で す 。 
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IMG STILL 員 


img still(sW) 

char 

Void 

画像 取り 込み モー ド sw を 設定 し ます 。 


SA 22R252 oc 画像 取り 込み モー ド の 設定 
0 = 実行 (静止 画 ) 
1 待機 (動画) 
実行 前 に 、screen 命 令 で 、 あ ら か じ め 表 示 画 面 サ イズ を 256X256 ま た は 512X512 に 、 
ディ スプ レイ 解像度 を Low (標準 解像度 ) に 設定 し ます 。 
また 、 画 像 取り 込み を 実行 する プロ グラ ム の 終了 時 に は 、img still(0) を 実行 し ます 。 
な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ユニット CZ-6VT1 が 必要 で す 。 


INKEY $ eo 


inkey$ 
Str 


キー ボー ド か ら 入 力 さ れ た 1 文字 を 返し ます 。 代入 す る こと は で きま せん 。 キー 入力 
され る まで 待ち ます 。 


input、「 キ ャ ラク タコ ー ド 表 」 


19 /* inkey$ sample 


2 の str as 

3 の while as<> "と" 

409 print "end of code = リ g! リ 
59 a8=inkey$ 

69 print as 

7 の 9 endwhile 

89 end 
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INPUT ステ ー ト メン ト 


input (< プロ ンプ ト 文 ?? く <: また は , >〕< 変 数 名 >〔, < 変数 名 >. . 〕 


キー ボー ド か ら 入 力 さ れる デー タ を 、 指 定 し た デー タ 型 の 変数 へ 代入 し ます 。 デ ー タ 
を 入力 し た ら 、 リ ター ン キ ー を 押し て くだ さい 。 

input 文 で は 、 く プロ ンプ ト 文 > と < 変数 名 > の 間 に セ ミコ ロン ( : ) あ る い は 、 カ ンマ ( , ) 
が 指定 で き 、 セ ミコ ロン の と き は < プロ ンプ ト 文 > の 後に 疑問 符 ( ? ) が 表示 され 、 カ ン 
マ の と き は な に も 表示 され ませ ん 。 ま た 、 変 数 に 入力 で きる 最大 文字 数 は 、 セ ミコ ロ 
ン (: ) を 使用 し た 場合 は 、 そ の 表示 画面 の 水平 最大 表示 文字 数 - (プロ ンプ ト 文 字 
数 十 3) に な り 、 カ ンマ ( , ) を 使用 し た 場合 は 、 そ の 表示 画面 の 水平 最大 表示 文字 数 一 
(プロ ンプ ト 文 字数 十 1) に な り ま す 。 た だ し 、 str 型 変数 の 場合 は 、 設定 され た 文字 バ 
ッ プ ファ の サイ ズ 以 上 の デー タ は 代入 きれ ませ ん 。 な お カン マ ( , ) や 引用 符 《) は 入力 
で きま せん 。 

変数 は 、 カ ンマ ( , ) で 区 切っ て 複数 個 指定 する こと も で きま す 。 この 場合 、 入 力 する 
デー タ も カン マ ( , ) で 区 切っ て 、 変 数 の 数 だ け 入 力 し て か ら リ ター ン キ ー を 押さ な け 
れ ば な り ま せん 。 入力 する デー タ の 個数 が 足 りな いと 、 バ デー タ の 個数 が た り ませ ん 〉 
と 表示 され て 入力 待ち と な り 、 個 数 が 多い と 、 パ デー タ の 個数 が 多 過 ぎ ま す ? と 表示 き 
れ 、 余 分 に 入力 され た デー タ は 無視 され ます 。 ま た 、 対 応 する 変数 の 型 と 入力 され る 
デー タ の 型 は 、 一 致し な けれ ば な り ませ ん 。 型 が 違っ て いた 場合 に は 、 パ デー タ の 型 が 
違い ます ” と 表示 され て 再び 入力 待ち と な り ま す 。 


inkey$ 


19 /* input sample 
2 の int ai,bi 

3 の 9 char ac,bo 

49 float af,bFf 

59 str as[255],bs[255] 


69 input "int data ai,bi = "。ai,bi 

7 の input "char data ac,bo = "jao,bo 

89 input "float data af,bf = "af,bf 

99 input "str data as = "ias 

10 の DPiin も “im も GaEa ai = "sao り も 1= リ siB3 
11 の print "char data ao = "jac, "bc=":bo 
129 print "Float qata afF = "sa "bf= リ "sbf 
13 の 9 print "str data as = "ijas 

149 end 
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INSTR 標準 関数 


instr(i, st1 , st2) 
int(i) , str (st1 .st2) 
int 


文字 列 st2 を 文字 列 st1 の 指定 され た 位置 : か ら 探し て その 位置 を 返し ます 。 位置 1 は 1 
ー255 の 値 を と り ま す 。 た だ し 次 の 場合 は 0 を 返し ます 。 


@ 文字 列 st2 が 見 つか ら な か っ た 場合 
@ 指 定 され た 位置 が * 0 また は 負 の 場合 
@ 文字 列 st1 ま た は st2 が null 文 字 の 場合 


19 /* instr sample 

29 str as,bs 

39 as="persona1 workstation X68999ACE" 
4 の bs="X68" 

59 print instr(2,as,bs ) 

69 end 


int < 変数 名 >〔 三 < 定数 式 >〕〔, . . . 


変数 を 整数 (int) 型 と し て 宣言 し ます 。 同 時 に 値 を 代入 する こと も で きま す 。 
原則 と し て 、 変 数 宣言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 ま た 、 同 じ 名 前 
の 変数 を メイ ンプ ログ ラム 中 で 再 宣言 する こと は で きま せん 。 


char, float, str 


19 /* int sample 

29 int ai=542684521 
39 int bi=-4265312 

40 int oi=23563,di=28 
59 print ai 

69 print bi 

79 print oi,di 

89 end 
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INT 標準 関数 


浮動 小数 値 f を 越え な い 最大 の 整数 値 を 返し ます 。 


19 /* int() sample 
29 float af=2.63# 
39 fl1oat bf=-5.6# 
49 fl1oat cf=51 

59 print int(af ) 
69 print int(Df ) 
79 print int(cf ) 
89 end 


ISALNUM 上 準 関数 


isalnum (ch) 

char 

int 

キャ ラク タコ ー ド ch の 文字 が 英 数 字 ('a"ー、(A"ー グ 、 (0 一 "9 ) で ある か どう か 調 


べ ま す 。 英 数 字 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


Ch assssp 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


19 /* isa1num sample 
29 ohar aco,Dbo,Cc 

39 ac=aso("a") 

49 bo=asoc("5") 

59 cc=asc("+") 

69 print isalrium(ao) 
79 print isa1num( bo ) 
89 print isalnum(oo ) 
99 end 
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SALPHA 準 関数 


isalpha (ch) 
mn 


機 能 キャ ラク タコ ー ド ch の 文字 が 英字 ('a" 一 "2 の 、'Aー グ の) で ある か どう か 調べ ます 。 英字 
で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


CN osx 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


/* isalpha sample 
char ao,bo,oo 

39 aco=aso("a") 

49 bo=asc("5") 

59 coc=asc("+") 

69 print isalpha(ao ) 
79 print isalpha( bo ) 
89 print isalpha(oo ) 
99 end 


to 
S ぐ ざ 


用 例 


ISASCII 標準 関数 


isascii (ch) 
char 
機 能 キャ ラク タコ ー ド ch の 文字 が アス キー 文字 ( 和 &H00 一 を H7F) で ある か どう か 調べ ま 
す 。 ア スキ ー 文 字 で あれ ば ー 1、 そ う で な けれ ば 0 を 返し ます 。 


2 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


1 の 9 /* isasocii sample 
29 ohar ao,bo,oo,do 

39 ao=asc("a") 

49 bo=asc("5") 

5 の co=asc("+") 

69 do=asc(" ミ " ) 

7 の print isaSo11(ao) 

8 の 9 print isasoii( bo ) 

99 print isasoii(oo) 

199 print isasoii (do ) 

119 end 
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ISCNTRL 準 関数 


iscntrl (ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が コン トロ ー ル 文字 (を H00 一 尼 H1F、&H7F) で ある か 
どう か 調べ ます 。 コ ント ロー ル 文 字 で あれ ば ー 1 、 そ う で な けれ ば (0 を 返し ます 。 


ch ……… 調べ た い 文字 の キャ ラク タコ ー ド (0 255) 


19 /* isontr] sample 
29 char ac,bo,ooc,dc 
39 accasc("a") 

49 bo=asc("5") 

59 oc=asc("+") 

6 の dc=13 /* ontrl+M */ 
79 print isontr] (ao ) 
8 の print isontr1 ( bo ) 
99 print isontr] (oc ) 
1 の 9 print isontr]1 ( do) 
119 end 


ISDIGIT 標準 関数 


isdigit (ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が 数 字 (' 0 "一 "9 ) で ある か どう か 調べ ます 。 数 字 で あれ 
ば ー 1 、 そ う で な けれ ば (0 を 返し ます 。 


Chricsraanss 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


1 の /* isdigit sample 
2 の 9 char ac,bo,oo 

39 ao=asc("a") 

4 の 9 bo=asc("5") 

59 coc=asc("+") 

69 print isdigit(ao ) 
7 の print isdigit( bo ) 
8 の print isdigit( co ) 
99 end 
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ISGRAPH 標準 関数 


isgraph (ch) 
im 


機 能 キャ ラク タコ ー ド ch の 文字 が 空白 文字 以外 の 表示 可能 な 文字 (&H21 一 科 H7E) で あ 
る か どう か 調べ ます 。 表示 可能 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


CD eee ot 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


用 例 19 /* isgraph sample 
29 


char ac,bo,oc,dc 
39 aco=asc("a") 
49 bo=13 /* ontr1+M */ 
50 co=aso(" 『") 
69 dc=asc( "ミリ ") 
79 print isgraph(ao ) 
8 の print isgraph( bo ) 
9 の 9 print isgraph(Coc ) 
199 print isgraph( do ) 
119 end 


ISLOWER 標準 関数 


islower (ch) 
char 


機 能 キャ ラク タコ ー ド ch の 文字 が 英 小 文字 ('a' 一 ') で ある か どう か 調べ ます 。 英 小文字 で 
あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


icczcetao9 調べ た い 文 字 の キャ ラク タコ ー ド (0 一 255) 


19 /* is]lower sample 
29 char ao, bo, で CC 

39 ac=asc("a") 

4 の bc=asc("A") 

59 cc=asc( "5") 

69 print islower(ao ) 
70 print islower( bc ) 
89 print islower( oc ) 
99 end 
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ISPRINT 標準 関数 


ISPU 


isprint (ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が 表示 可能 な 文字 (&H20 一 &H7E) で ある か どう か 調べ 
ます 。 表 示 可 能 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


の tp っ 53 調べ た い 文 字 の キャ ラク タコ ー ド (0 255) 


19 /* isprint sample 
29 char ao,bo,occ,dc 
39 ac=asc("a") 

49 bo=13 /* cntr1+M */ 
89 eo=aige( ” 「) 

69 dc=aso(" ミ " ) 

79 print isprint(ao ) 
89 print isprint( bc ) 
9 print isprint(oo ) 
199 print isprint(do ) 
119 end 


NCT 準 関数 


ispunct (ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が 表示 可能 な 記号 文字 (を H20 一 和 &H2F、&H3A 一 & 
H40、&H5B 一 謗 H60、&H7B 一 &H7E) で ある か どう か 調べ ます 。 表示 可能 な 記号 
文字 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


ch ……… 調べ た い 文 字 の キャ ラク タコ ー ド (0 255) 


1 の /* ispunot sample 
29 char ao,bo,ooc 

39 ac=asc("1") 

49 bo=aso("+") 

59 oo=asc("。") 

69 print ispunot(ao) 
79 print ispunot( bo ) 
8 の print ispunot( oo ) 
9 の 9 end 
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ISSPACE 


標準 関数 


測 | | 呈 | | 障 
証 | | 藻 | | 凡 


藻 
各 


用 例 


isspace (ch) 


char 


int 


キャ ラク タコ ー ド ch の 文字 が 空白 文字 (を H09 一 交 HO0D、& を H20) で ある か どう か 調べ 
ます 。 空白 文 字 で あれ ば - 1 、 そ う で な けれ ば 0 を 返し ます 。 


ea 調べ た い 文字 の キャ ラク タコ ー ド (0 一 255) 


/* isspace Sample 
char ao, bo ,Cc 
ac=asc( "a") 
bc=asc("+") 
cc=ase( " ") 

print isspaoce(ao ) 
print isspaoe( bo ) 
print isspaoe( Co ) 
end 


ISUPPER 


エ 


り 値 


切 | | 測 | | 富 | | 嘩 
3 癌 | | 員 


用 例 


isuDper (ch) 


char 


int 


標準 関数 


キャ ラク タコ ー ド ch の 文字 が 英 大 文字 (Aー グ ) で ある か どう か 調べ ます 。 英 大 文字 
で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


ch ……… 調べ た い 文字 の キャ ラク タコ ー ド (0 一 255) 


/* isupper sample 
char ao, bo ,Cc 
ac=aso("a") 
bo=asc("A") 
cc=asc( "5") 

print isupper( ac ) 
print isupper( bo ) 
print isupper( oc ) 
end 
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ISXDIGIT 標準 関数 


isxdigit (ch) 
char 
戻り 値 int 
キャ ラク タコ ー ド ch の 文字 が 16 進 数 の 文字 ('0 "9 、 "一 AV 一 中 ) か どう か 調 
べ ま す 。 16 進 数 の 文字 で あれ ば ー 1 、 そ う で な けれ ば 0 を 返し ます 。 


eh …wemn 調べ た い 文字 の キャ ラク タコ ー ド (0 255) 


19 /#* is?222222 sample 
2 int ai 

39 char ao 

4 の cls 

59 color 3 


69 print " "isxdigit' の 文字 の チェ ッ ク を 行い ます (該当 すれ ば 黄色 で 表示 し 、 該 当 


し な けれ ば 白色 で 表示 し ます ) “" 

が の Dint "大 ーー-- コ ント ロール コロ コード" 

89 print "ロー-ー-- ス ペー ス (空自) " 

99 print " 倫 --- シ フト J TS (2 バイ ト ) コー ド の 先頭 コー ド 

199 print "@--- シ フト J TS (2 バイ ト ) コー ド の 先頭 コー ド " 

119 print 

12 の EQOP ga ミニ 1 も o 256 

1309 A&C=aiー1 

149 if ac< く > の and (ao mod 16)=9 then print 

159 if aco>= の and aco<=31 then [ 

169 if isxdigit(ao)=-1 then color 2:print " 胡 "::continue else print 
衣 "jicontinue } 

179 if ao=32 or ao=127 or aoc=169 then { 

189 if isxdigit(ao)=-1 then color 2:print " 口 "::continue else print 
口 "j:continue} 

199 if ao>=128 and ac<=159 then 【 

20909 if isxdigit(ao)=-1 then color 2:print " 欠 "::continue else print 
葛 continue} 

210 if ao>=224 then { 

220 if isxdigit(ao)=-1 then color 2:print "人 "ji:oontinue else print 
@ icontinue } 

239 if isxdigit(ao)=-1 then color 2 else oolor 3 

2409 print " “"+ohr$(aoc) : 

259 next 

26 の end 


150 


itoa(⑪) 
int 
str 


整数 値 i を 文字 列 に 変換 し 、 そ の 文字 列 を 返し ます 。 


atoi 


19 /* itoa sample 

29 int ai,bi 

39 ai=3999909 

4 bi=-512 

59 print itoa(ai ) 

69 print itoa(bi ) 

70 print itoa(ai)+itoa( bi ) 
89 end 


key < ファ ンク ショ ン キ ー ナ ン バ パー>, く 文字 列 > 


ファ ンク ショ ン キ ー の 内 容 を 定義 し ます 。 く < ファ ンク ショ ン キ ー ナ ン バ ー> は 1 一 20 
で 、1 10 は |F1 |-|F10 | キー を 、 11-20 は | SHIFT | キー を 押し な が ら [F1 | 一 
[F10 | キー を 押し た 場合 に 対応 し ます 。 

文字 列 > の 長 さ は 32 文 字 ま で 有効 で す 。|CTRL|+| A | (CTRL| キ ー を 押し な が 
ら | A | キー を 押す )、 [CTRL|+| M | ([CTRL| キ ー を 押し な が ら | M | キー を 押 
す ) の よう な 文字 を 定義 むす る に は 、 び @A"、 バ @M” の よう に ^@? と 対応 する 各 大 文字 
を 並べ て 使い ます 。 

な お 引用 符 ( ”) は “@@” と な り ま す 。 


「 コ ント ロー ルコ ー ド 一 覧 」 


19 /* key sample 

20 key 3,"renum@M" 

39 key 11,"@@X68999ACE@@" 
49 key 19,"endfuno" 

59 end 
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KEY LIST MQ7I 


書 式 key list 


機能 ファ ンク ショ ン キ ー の 内 容 一 覧 を 表示 し ます 。 


用 例 key 1ist 


ki. 


kill "【< ド ライ ブ 名 〉] く ファ イル 名 >" 
省略 形 


上 指定 し た ファ イル を 削除 し ます 。 < ドラ イブ 名 >、 く < ファ イル 名 > の 詳細 に つい て は 、 
「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 参照 し て くだ さい 。 


用 例 ki11 "a:\ も test.dat" 
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LEFTS$ 標準 関数 


噂 
中 


left $ (st, 1 


1 


str (st) , intG) 


測 
証 


Str 


文字 列 st の 先頭 か ら 指定 され た 文字 数 i の 文字 列 を 取り 出し て 返し ます 。 


H 
q ト 
CC 


st 元 の 文字 列 (文字 式 ) 
1 便 GCCPEROCOO 取り 出し た い 文字 数 
文字 数 i は 、 1 か ら 255 の 値 を と り ま す 。 
指定 され た 文字 数 i が 、 文 字 列 st の 総 文字 数 より 大 きい と き は 、 文 字 列 st を その まま 取 
り 出 し て 返し ます 。 
指定 され た 文字 数 が *、 0 また は 負 の 場合 は null 文 字 を 返し ます 。 


mid$ 、right$ 


蘭 


用 例 19 /* 1eft$ sample 
29 str as 
39 as="persona] workstation X68999ACE" 
4 の print 1]eft$(as,8) 
59 end 
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LINE 


GRAPH 


int 


ine(x1,y1,x2,y2.p[, 1s] ) 


戻り 値 void 


グラ フィ ッ ク 画 面 上 に 直線 を 引き ます 。 


1 iPedia 始点 X 座 禁 

y1 ……… 始点 Y 座 禁 

0 wasgeeti 終点 X 座 本 

Y2 ……… 終点 Y 座 禁 
De ノッ パ レッ トコ ー ド ( 色 ) 
So ………… ライ ンス タイ ル 


x1、y1、x2、y2 は 、 一 32768 か ら 32767 ま で の 値 を と る こと が で きま す 。 ク リッ ピン グ 
エリ ア に いて は window 関 数 で 指定 され た 範 胃 に な り ます 。 また 、 パ レッ トコ ー ド p は 
0 か ら 65535 ま で の 値 を 取る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サ 
イズ 及び 色 モ ー ド に より ます 。 

ライ ンス タイ ル ls は 0 一 65535 の 値 を と り 、 こ れ を 16 ビ ッ ト の ビッ トバ パタ ー ン と 見 な 
し 、 実 線 ( を HEFFFF) や 点線 (&HAAAA) な ど を 指定 する こと が で きま す 。 


+ー 
に 


用 例 /* 1ine sample 

20 int ai,。bi,c1i,di ei ,f1 エ 。 ど 1 
3 の scoreen 1,3,1,1 

49 vpage(1) 

59 for ai= の to 109 


69 bi=rand() mod 512 
79 ci=rand( ) mod 512 
89 di=rand( ) mod 512 
909 ei=rand() mod 512 
199 fi=rnd()*65535 
119 gi=65535 
1209 1ine(bi,ci,di,ei,fi,gi) 
139 next 
149 vipe( ) 
159 for ai= の to 109 
169 bi=rand( ) mod 512 
179 ci=rand( ) mod 512 
189 di=rand( ) mod 512 
19 の ei=rand( ) mod 512 
299 fi=rnd( )*65535 
210 gi=rnd()*65535 
229 1ine(bi,c1i,d1i。e1,f1,gi ) 
239 next 
24 の 9 end 
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LINPUT ステ ー ト メン ト 


書 式 
機 能 


linput < ブロ ンプ ト 文 < く str 型 変数 名 > 


指定 され た str 型 変数 に 、 キ ー ボ ー ド か ら 文 字 列 を 入力 し ます 。 文字 列 を 入力 し た ら 、 
リタ ー ン キー を 押し て くだ さい 。jinput 命 令 と 違い 、 一 度 に 一 つの str 型 変数 に し か 代入 
で きず 、 また 数 値 型 の 変数 へ の 代入 は で きま せん 。 カン マ ( , )、 引 用 符 ( ”) な ども 代 
入 す る こと が で きま す 。 

linput 文 で は 、 疑問 符 ( ? ) は 表示 され ませ ん 。 ま た 、str 型 変数 に 入力 で きる 最大 文字 
数 は 、 そ の 表示 画面 の 水平 最大 表示 文字 数 一 (プロ ンプ ト 文 字数 十 1 ) と な り ま す 。 た 
だ し 、 設 定 さ れ て いる 文字 バッ ファ の サイ ズ 以 上 の デー タ は 代入 きれ ませ ん 。 


1 の /* 1input sample 
29 str as,bs[255] 
39 as="X68999ACE" 
49 while bs<>as 


56 print "end of string='X68999ACE'" 

69 1input "input string (11ine)--->":bs 
79 print bs 

89 endwhile 

99 end 


155 


第 4 章 


用 


リア ァ レ ジス 


[Jlist (< 行 番号 1 >]【 一 〔< 行 番号 2 >〕〕 


1. 


メモ リ に ある プロ グラ ムリ スト を 画面 に 表示 し た り 、 プ リン タ に 印刷 し ます 。 
表示 を 開始 する < 行 番号 1 > を 省略 する と 、 プ ログ ラム リス ト の 先頭 か ら 表 示 が 始ま 
り 、 表 示 を 終了 する < 行 番号 2 > を 省略 する と 、 プ ログ ラム リス ト の 最後 まで が 表示 さ 


れ ま ず 。 た と えば 、 


list 
list 
jist 
jist 


50 
ー100 
200 一 


プロ グラ ムリ スト の 先頭 か ら 最後 まで が 表示 され ます 。 
行 番号 50 の 行 の み 表 示さ れ ま す 。 

プロ グラ ムリ スト の 先頭 か ら 100 行 目 ま で が 表示 され ます 。 
プロ グラ ムリ スト の 200 行 目 か ら 最 後 ま で が 表示 され ます 。 


list の 機能 を 一 時 停止 し た いと き は 、|CTRL |+| S | キー を 押し ます 。 何 か キー を 押せ 
ば 、 表 示 を 再開 し ます 。 ま た 、list の 機能 を 終了 し た いと き は 、| BREAK | キー( 


[CTRL|+| C | キー) を 押し ます 。 


jist 命 令 の 代わ り に Illist 命 令 を 用 いれ ば 、 プ ログ ラム リス ト を プリ ンタ に 印刷 する こと 


が で きま す 。 


1ist 19-200 


156 


LOAD 


機 能 


っ 


1oad[@〕 ヾ 【< ド ライ ブ 名 >〕] く < ファ イル 名 >〉^〔, < 行 番号 >]【, < 増分 >〕 
1o. 


指定 し た BASIC プ ログ ラム を ロー ド し ます 。 

プロ グラ ム が ロー ド さ れる と 、 そ れ ま で メモ リ 上 に あっ た プロ グラ ム は 消さ れ ま す 。 
load@ は 行 番号 を 除い て (save@ に よっ て ) セ ー プ され た プロ グラ ム に < 行 番号 > と そ 
の < 増分 > を 指定 (し な けれ ば と も に 10) し て ロー ド し ます 。 こ の 場合 、 プ ログ ラム は 、 
指定 され た 行 番号 か ら 、 指 定 さ れ た 増分 を 加え た 行 番号 を 付加 し な が ら ロ ー ド され ま 
す 。 すでに プロ グラ ム が メモ リ に ある 場合 、 ロ ー ド し た プロ グラ ム が マー ジ (混合 、 師 
加 ) さ れ ま す 。 < ドラ イブ 名 >、 < ファ イル 名 > に つい て の 詳細 は 、「Human68k ユ ー ザ ー 
ズ マ ニュ アル 」 を 参照 し て くだ さい 。 


SaVe 


1oad "a:\test.dat" 


LOCATE ステ ー ト メン ト 


/* 1ooate samp1e 
も mt も &i,5 ふ 


cl1s 


locate <X 座 標 >, く Y 座 標 >(, く < カー ソル スイ ッ チ >〕 
]oc. 


カー ソル を テキ スト 画面 の < 座標 >、 く Y 座 標 > で 指定 され た キャ ラク タ 座 標 位置 へ 移 
動 し ます 。 <X 座 標 >、 <Y 座 標 > の と りう る 範囲 は 、 ス クリ ー ン モー ド と スク ロー ル エ リ 
ア に より ます 。 < カー ソル スイ ッ チ > が 0 の と き は 、 カ ー ソ ル 表 示 OFF で 、1 な ら カ ー 
ソル 表示 ON で す 。 

な お 、 く < カー ソル スイ ッ チ > が 有効 な と き は 、 プ ログ ラム で < カー ソル スイ ッ チ > を 0 に 
し て 実行 し て いる 間 の み で す 。 プ ログ ラム が 終了 し て Ok” が 表示 され る と カー ソル 
表示 ON に な り ま す 。 


for ai=9 to 2 の 

1ocate ai*4,ai,1:print "personal workstation X68999ACE" 
1ocate 95-ai*4,ai+19,1:print "persona1 workstation X68999ACE" 
for bi= の to 50999 


届 選 区 も 
end 


next 
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ァ レ ンス 


log (Q) 
float 
float 


数 値 n の 自然 対数 を 返し ます 。n> 0 で な けれ ば な り ませ ん 。 


19 /* log sample 

20 mt ね ぉ 1。 bi , ot, 

39 fl]oat af 

49 soreen 1,3,1,1 

59 vpage(1) 

69 1ine(9,255,511,255,65535,&HFFFF ) 
の fo aiT=1 も to 3 


809 For bi=l to 511 

99 af=bi/159.05222# 

199 ci=255-1og(af)*ai*60 
1109 di=rnd( )*65535 

120 pset(bi ,ci,d ュ ) 

1309 next 

149 next 

159 end 
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MID ゃ 標準 関数 


mids (sL iL.2) 
str (st) , int G1.,12) 
戻り 値 str 


機 能 文字 列 st の 中 の 指定 され た 位置 i1 か ら 指定 され た 文字 数 i2 分 の 文字 列 を 取り 出し て 返 


し ます 3 
本 2652 元 の 文字 列 (文字 式 ) 
1 em 取り 出し 始め る 位置 
12 ei 取り 出し た い 文 字数 


位置 ii お よび 文字 数 i2 は 、1 か ら 255 の 値 を と り ま す 。 

取り 出し た い 文 字数 i2 が 文字 列 st の 取り 出し 始め る 位置 ii か ら の 文字 数 より も 大 きい 
と き は 、 指 定 さ れ た 位置 i1 以 降 の すべ て の 文字 列 を 取り 出し て 返し ます 。 取 り 出 し 始め 
る 位置 i1 が 、0 ある い は 負 の 場合 や 、 文字 列 st の 長き を 越え て いる 場合 は null 文 字 を 返 
し ます 。 取 り 出 し た い 文 字数 i2 が 、0 ま た は 負 の 場合 も null 文 字 を 返し ます 。 


left$ 、right$ 


eS 
10 /* mid$ sample 
209 


str as 
39 as="persona] workstation X68999ACE" 
49 print mid$(as,19,11 ) 
59 end 


MIRROR$ 準 関数 


mirror$ (st) 
引 数 str 
str 
文字 列 st の 並び を 逆転 し て 返し ます 。 
19 /* mi $ samp1 
用 例 29 0 EN 


39 as="personal workstation X68999ACE" 
4 の 9 print mirror$(as ) 
59 end 
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第 4 章 


MOUSE 


リフ ァ レ ンス 


MOUSE 
書 式 mouse (ch) 
引 数 char 
戻り 値 int 
機 能 マウ スカ ー ソ ル の 表示 、 マ ウス の 初期 化 な ど を 行い ます 。 戻り 値 は 、ch= 3 以外 で 


200 
219 


は 、 通 常 0 、 エ ラー の と き は ー 1 を 返し ます 。 


ch ee (0 = ニ マ ウス の 初期 化 ( 右 ボ タン 専有 :…… ソ フト キー ボー ド 使 用 可 ) 
1 ニ マ ウス カー ソル を 表示 する 
2 デマ ウス カー ソル を 消す 
3 = ニ マ ウス カー ソル の 表示 状態 を 返す (表示 し て いる … 一 1 、 表 示し 
て いな い … 0 ) 
4 = ニ マ ウス の 初期 化 ( 右 ボ タン 開放 …… ソ フト キー ボー ド 使 用 不 
可 ) 


/* mousSe sample 


char ao 

mouSse(0) 

while -1 
Print 
print 


case 9:prin も t "マウ ス の 
GaSe 1:Dprin も "マウ スズ スカ 
Ga&Se 2:prin も "マウ スカ 
case 3:prin も t "マウ スカ ー ソ ル 
if mouse(3)<> の then prin も t "マウ スカ ー ソ リル 
if mouse(3)= の then print "マウ ? 
Ca8e 4:pmin も "ソフ トキ キーボー ド 


! 

1 

1 
ン 
に 


状態 --->3" 
示 禁 止 --->4" 
て 下さ い (9---4) "jac 


で 炊 季 吾 門 


た ":mouse(9):break 
た ":mouse( 1 ) : break 


考 若 粒 ご 
紀 虹 着 蛇 
ご で 
9 9 
aaa 
な 
・ 旦 
O 
の 
の 
( リ 
ト う 
ご 
は 】 
( り 
いい 
安 


Rt X 
糧 き 
引 1 
水 
F 


endswitoh 


endwhile 
end 


160 


MSAREA MOUSE 


msarea(x1,y1,x2,y2) 
int 


int 


藻 | | 測 | || | 中 
司 | | 南 | | 燥 | | 員 


マウ スカ ー ソ ル の 移動 範囲 を 指定 し ます 。 範 囲 は 表示 画面 サイ ズ に よっ て 決ま り ま す 。 
戻り 値 は 通常 0 、 エ ラー の と き は ー 1 を 返し ます 。 


x1 始点 座標 
y1 こい 始点 Y 座 標 
x2 の me… 終点 X 座 標 
y2 ……t… 終点 Y 座 橿 
を 
39 vpage(1) 


4 の 9 mouse(0) 

59 msarea(9,9,609,490) 

69 box(9,9,699,499,15,&HFFEFF ) 

79 mouse(1) 

89 locate 1,5 

99 print "(の ,9)<--->(699,499) の 範囲 で マウ ス を 動か し て くだ さい !" 
199 end 
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MSBTN MOUSE 


msbtn (n, b, t) 


char(n, b) , int (t) 
| 戻り 値 | 


戻り 値 int 
能 . マウ スポ ボ タン が 指定 され た 状態 た な る まで の 時 間 を 返し ます 。 戻り 値 は 、0 な ら ば ド 
ラッ ク さ れ た こと を 示し 、 一 1 な ら ば 指定 され た 待ち 時 間 の 最大 値 を 越 を た こと を 示 
し ます 。 
10 CECEEECCCEEE 待つ ボタ ン の 状態 


0 ニモ ボタ ン が 離さ れる まで 
1 ニ ボ タン が 押さ れる まで 


5 ボタ ン の 左右 
0 = 左 
1 = 右 

ERR 待ち 時 間 の 最大 値 (0、1 で ずっ と 待つ ) 


状態 が 変わ れ ば これ は リセ ッ ト さ れ ま す 。 


19 /#* msbtn sample 

2 の 3n も ja 守 ニ 本 o 信 の 1 人 呈 。 及 ささ お 9 も 。k3 

39 screen 2,.9,1,1 

49 vpage(1) 

59 mouse(0) 

69 msarea(9,9,767,511) 

7 の 9 box( の 9,.9,767,.511,15,&HFFFF ) 

8 の 9 mouse(1) 

99 locate 5,19 

199 print "マウ ス の 左 ボ タン を ダブ ルク リッ ク し て くだ さい 。 十 字 の 線 が 動き ます 。! 


119 while ai<> の 


1209 msstat( bi ,ci,di,ei ) 

139 if di<>-1 then oontinue 

149 fi=msbtn(9,9,80) 

159 if fi<19 or fi>79 then oontinue 
169 fi=msbtn( 1] , の 9,86 ) 

179 if fi<19 or fi>79 then continue 
1809 fi=msbtn(9,9,806) 

199 if fi<19 or fi>70 then continue 
299 Lline(ii,9,ji,511,9,&HFFFF ) 

210 Line(9,Ji,767,)1,0,&HFFFF ) 

229 box(9,9,767,511,15,&HFFEFF ) 

239 mSspoS( 豆 1,hi ) 

240 Line(gi,9,gi,511,12 ,& を HFFFF ) 

259 1ine(9,hi,767,hi,12,&HFFFF ) 

269 11 =gi 

279 Ji=hi 

289 endcshi]e 

299 end 
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OS MOUSE 


msDoS (<, Y) 

int 型 変数 名 

int 

マウ スカ ー ソ ル の 座標 を int 型 変数 x、y に 返し ます 。 


19 /* mspos sample 

20 1nt ai1=1,。b1,oi 

39 screen 2,9,1,1 

49 vpage(1) 

59 mouse(9) 

69 msarea(9,9,767,511) 

79 box(9,9,767,511,15,&HFFFF ) 
89 mouse(1) 

99 1ocate 19,19,9 


199 print "move mouse Cursor!( の 9,9)<--->(767,511)" 
119 while ai< く > の 

120 mSpos(bi,o1 ) 

139 1ocate 19,11,9 

140 print "mouse cursor (X) = "jib 

159 1ocate 19,12, の 9 

169 print "mouse cursor (Y) = "jo 

179 endwhile 

189 end 
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MSSTAT MOUSE 


| 書 式 | msstatx,y,bl br) 
int 型 変数 名 
im 
マウ ス の 状態 を int 型 変数 x、y、bI、br に 返し ます 。 
GRG X 方 合 の 相対 移動 量 ( 一 128 一 127) 
が mn Y 方 合 の 相対 移動 量 (一 128 一 127) 
bl ……… 左 ポ タン の 状態 (押さ れ て いれ ば ー 1 、 押 きれ て いな けれ ば 0 を 返 
す ) 
br ……… 右 ポ タン の 状態 (押さ れ て いれ ば ー 1 、 押 され て いな けれ ば を 返 
す ) 


19 /* msstat sample 

2 の | す 和 も 。 まこ 1 b1 GT のせ 1 

39 sorceien 2,9,1,1 

49 vage(1) 

5C mouse(9) 

69 msarea(9,9,767,511 ) 

79 box( の 9,9,767.511.15,&HFFFF ) 
89 mouse(1) 

99 1ocate 7.,109,9 

199 print "(9,9)<--->(767,511) の 範囲 で マウ ス を 動か し て くだ さい !" 
119 while ai<>0 


120 msstat(bi,Ci,di,ei ) 

139 1ocate 7,11,.9 

149 print "マウ ス の 双方 向 の 相対 移動 量 (-128---127 )---> "ibi 

1509 1ocate 7,12,9 

169 print "マウ ス の Y 方 向 の 相対 移動 量 (-128---127 )---> "joi 

179 1ocate 7,13.9 

189 print "マウ ス の 左 ボ タン の 状態 ---> 『: 

199 1 dtT く 2 の Ehen prtn も "押さ きれ で て い 表 すず す  " else ゃ rim も "押さ き 入 で ゆま せん たん" 
200 1ocate 7,14,9 

219 prtin も t "マウ ス の 右 ボ タン の 状態 ---> 『「} 

229 if ei<>9 then print "押さ れ て いま す "else print "押さ れ て いま せん " 
239 endchile 

249 end 
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M_ALLOC MUSIC 


書 式 m alloc(t, 8) 
char(1) , int (⑮) 
ie 
指定 され た トラ ッ ク t の トラ ッ ク バ ッ フ ァ を 確保 し ます 。 同時 に 、 ト ラッ ク 内 の デー タ 
は クリ ア さ れ ま す 。 戻り 値 と し て 、 正 淀 の と き は 0 、 エ ラー の と き は 一 1 を 返し ます 。 
作 waAses トラ ッ ク 番 号 (1 一 80) 
Sit トラ ッ ク バ ッ フ ァ の サイ ズ (1 一 65536 バ イト ) 
M ASSIGN ME 
書 式 m assign (c, ) 
char 
int 
機能 FM 音源 の 指定 され た チャ ン ネ ル c に 、 ト ラッ ク t を 割り ふり ます 。 戻り 値 と し て 、 正常 


の と き は 0 、 エ ラー の と き は ーー 1 を 返し ます 。 


CC チャ ン ネ ル 番 号 (1 一 8 ) 
te トラ ッ ク 番 号 (1 一 80) 
複数 の チャ ン ネ ル に 同一 の トラ ッ ク を 割り あて る と 、 そ れ ぞ れ 同 じ 楽 譜 デ ー タ を 演奏 
し ます 。 又 、 複数 の トラ ッ ク を 1 つの チャ ン ネ ル に 割り あて る と 、 最も 新しく 割り ふら 
れ た トラ ッ ク の 楽 譜 デ ー タ を 演奏 し ます 。 
デ ヂ デフォルト 値 は 、 チ ャ ン ネ ル 1 か ら チ ャ ン ネ ル 8 が 、 そ れ ぞ れ ト ラッ ク 1 か ら ト ラッ 
ク 8 に 対応 し ます 。 
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M_CONT MUSIC 


書 式 m cont(〔c1] , 【c2] , 〔c3] , 【c4〕 , 〔c5〕 , 〔c6〕 , 〔c7〕 , 【c8〕) 
引 数 char 
int 
c1 か ら c8 で 指定 され た チャ ン ネ ル に お いて 、 一 時 停止 し た 演奏 を 再開 し ます 。 チャン 
ネル を すべ て 省略 する と 、 現 在 一 時 停止 し て いる すべ て の チャ ン ネ ルク の 演奏 を 再開 し 
ます 。 
戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き は 一 1 を 返し ます 。 
し 2 m stop 
M_ FREE MUSIC 
置 来 m free(t) 
char 
戻り 値 int 
定 され た トラ ッ ク t の トラ ッ ク バ ッ フ ァ の 残り の バイ ト 数 を 返し ます 。 


Eee トラ ッ ク 番 号 (1 一 80) 
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M_INIT MUSIC 


書 式 


m init( ) 


FM 音源 (トラ ッ ク の 楽譜 デー タ 、 音 色 ) を 初期 化し ます 。 


M PLAY 過 叶 に 


m play(【c1] , 〔c2〕, 〔c3] , 〔c4〕 , 〔c5〕 , 【c6〕 , c7〕 , 〔c8]〕) 
char 
int 


c1 か ら c8 で 指定 され た チャ ン ネ ル に 割り あて られ た トラ ッ ク の 楽譜 デー タ を 演奏 し 
ます 。 チ ャ ン ネ ル を すべ て 省略 する と 、 全 チャ ン ネ ル を 演奏 し ます 。 
戻り 値 と し て 、 正 常 の と き は 0 、 エ ラー の と き は ー 1 を 返し ます 。 


10 /* MUSIC SAMPLE 

29 / ネ * 

39 /* SYMPHONTIA NO.14 in Bb maJjor J.S BACH 
40 / ネ * 

59 str A$[2551 

69 /* PART 1 

79 m init() 

89 for 1I=1 to 6 : m al1loc(T,2000 ) : next 

99 for 1I=1 to 6 : m asSign(T,T) :nex セ も 


199 /* 

119 m trk(1,"Q7 @34 V3 O4 T66" ) /* TERUMPET 
129 m trk(2,"Q7 @35 V19 O4 『") /* HORN 
139 m trk(3,"Q7 @37 V19 0O3 『") /* TUBA 
149 m trk(4,"Q8 @6 V8 95 9 /* CEMBALO 
159 m trk(5,"Q8 @6  V8 05. "9 /* CEMBALO 
169 m trk(6,"Q8 @6  V8 O4 『") /* CEMBALO 


179 /* PART 1 

189 A$="L16 B-4&B-B-AGFE8G8DE-F8 : <R8F8&FE-DC>B-8<D8>AB-<C8" 
199 A$=A$+ ">F<FD>B- く <E-8G8&GE-C>A&A8<EF8 : D4E4F8>B-4A8" 

299 TRK _WRT(1):TRK_WRT(4 ) 

219 /* PART 2 

220 A$="L16R1 : >B-FB-<DC8E-8&E-8DE {FEFEFEFE18 &ED32E32" 
239 A$=A$+"F4G8B-8E-8G8 く <C8C8& : C>FB-<D>G8B-8A8DE-FGE-F" 
249 TRK_WRT(2):TRK _WRT(5) 

259 /* PART 3 

26 の 9 A$= "L8 B-<DC>B-AGFE- : D4F4G4<C4" 

279 A$=A$+"D4&L16DD>B-G<C8E-8&E-C>AE : B-4&B-B-AGF8G8DE-F8" 
289 TRK _WwRT(3) :TRK_WRT(6 ) 

299 m play() 

399 end 

319 funo TRK _WRT(T ) 

3209 m trk(T,A$) 

33 の 9 endfunc 
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M STAT Mu 


書 式 m stat(c) 


引 数 char 
戻り 値 int 
機 能 旧 定 され だ た チャンネル c が 、 演奏 中 か どう か 調べ 、 演奏 中 な ら 1 、 そ う で な けれ ば (0 を 


返し ます 。 チャ ン ネ ル c を 省略 する と 、 返 され る バイ ト 値 の ビッ ト 0 一 ビッ ト 7 が チャ 
ン ネ ル 1 一 8 に 対応 し 、 0 な ら 停止 中 、 1 な ら 演奏 中 で す 。 ま た 、 エ ラー の と き は 一 
1 を 返し ます 。 


3 チャ ン ネ ル 番 号 (1 一 8) 


19 /* m stat samp1e 
20 m init() 
39 m alloo(1,1900 ) 
49 m al11oo(2,1090) 
59 m assign(2,1 ) 
69 m assign(3,1) 
79 m_assign(4,2) 
89 m trk(1,"112 croordereeredrodreoro> く rr" ) 
9 の m trk(1," Ge3 rfgrggrgfrefrge3 rg') 
199 m trk(1," G3 rge3 rgergerge3 rr') 
JIO mm も xik(2。"114 mwrrmm や や ) 
129 m play(1,4) 
139 while m stat(4) 
149 endwhile 
159 m play(2,4) 
169 while m stat(4) 
179 endwhile 
189 m play(3,4) 
199 end 
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M_STOP MUSIC 


っ 


m stop(【c1] ,【c2〕 , 【c3〕 , 〔c4] , 〔c5〕 , 〔c6] , 【c7〕 , 【c8]〕) 
char 
int 


c1 か ら c8 で 指定 され た チャ ン ネ ル の 演奏 を 一 時 停止 し ます 。 チャ ン ネ ル を すべ て 省略 
する と 、 全 チャ ン ネ ル の 演奏 を 一 時 停止 し ます 。 
戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き は 一 1 を 返し ます 。 


Im Cont 

1 の 9 / キ ネ 

2 /* musio sample 

3 の まあ ああ 。 多 チ ジジ ナル 2 S.C.Foster 
4 の 9 / ネ * 

59 str as,bs,cs,ds,part[255] 

60 m init( ) 


79 m al1loo(1,2090 ) 
89 m assign(1,1) 


99 1input "音色 デー タ の 番号 を 入力 し て 下さ い (1~-68)--->? "jaS 
199 1input "テン ポ を 入力 し て くだ さい (32~ー200)--->?"jbs 
119 part="@"+as+" o4 v9 q7 116"+ | も t"+bs 


129 Qr trk(part ) 

139 part="g&a b8<d8d8e8> <d8>b8g8.a b8b8a8g8 a4.ga&" 
140 wr trk(part ) 

159 part="b8<d8d8.e> <d8>b8g8.a& b8b8a8a8 g4.ga&" 
169 nvr trk(part) 

1709 part="b8<d8d8.e> <d8>b8g8.a b8b8a8g8 a4r8ga&" 
189 cr _trk(part ) 

199 part="b8<d8d8e8> <d8.>bg8.a bb8.a8.a g4r4" 
299 or trk(part) 

219 part="<o4c4> <e8e4e8> <d8.d>b8g8 a4r8ga&" 

220 nr trk(part ) 

239 part="b8<d8d8.e> <d8>b8g8a8 b8b8a8.a g4r8" 
249 vwr trk(part) 

259 m play( ) 

269 1input "演奏 を 停止 し ます か <y/n>--->? リ "jos 

279 if os="n" then end 

289 m stop( ) 

299 linput "演奏 を 再開 し ます か <yY/n>--->? リ jads 

399 if ds="y" then m cont( ) 

319 end 

329 func wr trk(partistr ) 

339 m trk(1,part) 

349 endfuno 
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M _ TEMPO MUSIC 


m tempo(te) 


char 


int 


テン ボ fte を 1 分 間 に 4 分 音符 を 何 哲 打 つか で 指定 し ます 。 テ ン ポ te は 32 一 200 の 範囲 
2 
戻り 値 と し て 、 正 常 の と き は 0 、 エ ラー の と き は ーー 1 を 返し ます 。 


/ ネ 

/* m も tempo sample 

4 OO 才 : 役 。 鯨 義 チ !M“ S.C.Foster 

/* 

int ai 

char ao 

str as,part[255]1 

m_init( ) 

m alloc( 1,2009 ) 

m_aSsign(1,1) 

linput "音色 デー タ の 番号 を 入力 し て 下さ い (1~68)--->? "jas 
inpu も t "テンポ を 入力 し て くだ さい (32 て 2299)---> "jao 
part="@"+as+" o4 v9 q7 116" 

wr_ trk(part† ) 

part="g&a b8<d8d8e8> <d8>b8g8.a b8b8a8g8 a4.ga&" 
wr trk(part) 

part="b8<d8d8.e> <d8>b8g8.a& b8b8a8a8 4.ga&" 
wr trk(part) 

part="b8<d8d8.e> <d8>b8g8.a b8b8a8g8 a4r8ga&" 
wr trk(part) 

part="b8<d8d8e8> <d8.>bg8.a bb8.a8.a g4r4" 

wr trk(part) 

part="<o4c4> <e8e4e8> <d8.d>b8g8 a4r8ga&" 

wr trk(part ) 

part="b8<d8d8.e> <d8>b8g8a8 b8b8a8.a 玉 4r8" 

wr trkK(part) 

m_play() 

for ai= の to 39909:next 

m tempo( ao ) 

for ai= の to 499099:nex セ 

m tempo( 120) 

end 

func nwr trk(partistr ) 

m trk( 1 ,part) 

endfuno 
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M _TRK MUSIC 


m trk(t, st) 
char (t) , str (st) 
int 


MML に よる 楽譜 デー タ を トラ ッ ク t に 書き 込み ます 。 ノ 厳密 に いう と 、 ト ラッ ク t に 楽譜 
デー タ を 追加 し て いき ます 。 戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き は ー-1 を 返 
し ます 。 


God042 トラ ッ ク 番 号 (1 一 80) 
CO MIME (ミュ テー ジッ シマ クロ ラン グ ゲージ) デー タク 


M VGET HDS 


ユ 


m vget (vo, ca) 
char (vo) , char 型 二 次 元 ( 4 , 10) 配 列 名 (ca) 
int 


音色 デー タ を 配列 ca に 読み 込み ます 。 戻り 値 と し て 、 正 常 の と き は 0、 エ ラー の と き 
は ー1 を 返し ます 。 配列 ca の デー タ の 詳細 に つい て は 、 資 料 編 「FM 音 源 の 音色 デー タ 
(レジ スタ )」 を 参照 し て くだ さい 。 


NO 音色 番号 (1 一 200)。 1 一 68 は 、 登 録 済 
2 音色 デー タ を 格納 する た め の char 型 二 次 元 配列 名 。 配 列 の 次 元 は 
(4,10)。 
m VSet 


10 /* m vget sample 

2 int ai,bi 

39 char ao 

49 dim char aoca(4,10) 

5 input "音色 デー タ の 番号 を 入力 し て くだ さい (1~68)--->":ao 
69 cl1s 

79 print "音色 デー タ の 番号 ("jaci:") の デー タ で す " 

8 の print 

9 の 9 m vget(ao,aoa ) 

199 for ai= の 9 to 10 


119 print 

120 for bi=9 to 4 

139 print using 「#####" iaoa(bi,a1)j:DFin も 「 寺 
140 next 

159 ne ヾ も 

16 の 9 end 
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M VSET MUSC 
m Yset (Vo, ca) 
char (vo), char 型 二 次 元 (4 ,10) 配 列 名 (ca) 
mt 
配列 ca に 格納 され て いる 音色 デー タ を 指定 され た 音色 番号 vov の メモ リバ ッ フ ァ に 登 
録 し ます 。 戻り 値 と し て 、 正 常 の と き は 0 、 エ ラー の と き は ー 1 を 返し ます 。 配列 ca 
の デー タ の 詳細 に つい て は 、 資 料 編 「FM 音 源 の 音色 デー タ (レジ スタ )」 を 参照 し て く 
だ さい 。 
Yo の ot 音色 番号 ( 1 一 200)。 1 一 68 は 登録 済 。 
Cl toeyacn2 音色 デー タ が 格納 され て いる char 型 二 次 元 配列 名 。 配 列 の 次 元 は 
(4,10)。 
音色 デー タ の 配列 形式 
0 1 デポ ペレ ー タ ) 
0 | フィ ー ド バッ クノ ア ル ゴ リ ズム (0-63) | AR (0-31) 
1 | スロ ッ ト マ スク (0-15) | D1R (0-31) 
2 | 必 ー デ フォ ー ム (0-3) | D2R (0 一 31) 
き | 多 称 グ 理 (0、1) | RR (0 一 15) 
4 | スピ ー ド (0-255) | D1L (0 一 15) 
5 | PMD (0-127) | TL (0-127) 
6 | AMD (0-127) | KS (0-3) 
7 | PMS (0-7) | MUL (0 一 15) 
8 | AMS (0-3) | DT1 (0 一 7) 
9 | 上, RPAN (0-3) | DT2 (0 一 3) 
10 AMS イ ネー ブル (0、1) 
な お 、 オ ペレ ー タ 1 は M1 (モジ ュ レ ー タ 1)、 オ ペレ ー タ 2 は C1 (キャ リア 1)、 オ ペレ 
ー タ 3 は MI2 (モジ ュ レ ー タ 2)、 お よび オペ レー タ 4 は C2 (キャ リア 2) に 対応 し て いま 
ボ 。 
2 m vget 
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書 式 name [< く ド ライ ブ 名 >] く < ファ イル 名 1 》". "< ファ イル 名 2 > 
省略 形 na. 


機 能 指定 し た ドラ イプ の ファ イル 名 く < フ ァイル 名 1 > を く < ファ イル 名 2 > に 変更 し ます 。 く ド 
ライ ブ 名 >〉、< フ ァイル 名 > に つい て の 詳細 は 、「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 
参照 し て くだ さい 。 


用 例 name "a:\test.bas","a:\test.dat" 


NEW ョ コマ ンド 


書 式 new 

機 能 メモ リ に ある プロ グラ ム を 消去 し 、 す べ て の 変数 を 初期 化し ます 。 
new 命 令 を 実行 する と 、 メ モリ に ある プロ グラ ム は すべ て 消去 され 、 定 義 き され て いる 変 
数 も すべ て 初期 化 さ れ ま す 。 


+ 


delete 
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標準 関数 
oct$ ⑪) 
int 
Str 


整数 値 1 を 8 進 表 現 の 文字 列 に 変換 し 返し ます 。 な お 、 上 位 の 0” は 取り 除 か れ ま 
が 


bin$、hex$ 


10 /* oot$ sample 

20 int ai,bi 

39 ai=-255 

4 の bi=10995423099 

59 print oot$(ai ) 

6 print oot$(bi ) 

7 の 9 print oot$(ai ) +oot$( bi ) 
89 end 
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GRAPH 


用 例 


paint (x, y, D) 
int 
Void 


グラ フィ ッ ク 画 面 上 の 任意 の 単色 領域 内 を 塗り つぶ し ます 。 
window 関 数 で 指定 され た クリ ッ ピ ング エリ ア 外 の 領域 は 無視 され ます 。 


文 で の ………… 塗り つぶ し た い 領 域内 の 1 点 の XX 座標 
RCC 塗り つぶ し た い 領 域内 の 1 点 の Y 座 標 
DTI の パレ ッ ト コ ー ド ( 色 ) 


x、 y は 、 一 32768 か ら 32767 ま で の 値 を と る こと が で きま す 。 また 、 パレット コー ド p は 
0 か ら 65535 ま で の 値 を 取る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サ 
イズ 及び 色 モ ー ド に より ます 。 


19 /* paint sample 

29 int ai。b1i,C1,d。e1,f ュ 
39 soreen 1。3,1,1 

49 vpage(1) 

59 for ai= の to 59 


69 bi=rand( ) mod 512 
79 ci=rand( ) mod 512 
809 di=rand( ) mod 209 
99 ei=rnd()*65535 
199 cirole(bi,oi,di,ei,9,369,499) 
119 next 

129 for ai= の to 3099 

130 p( ) 

149 next 

159 wipe( ) 

169 for ai=9 to 59 

179 bi=rand( ) mod 512 
189 ci=rand( ) mod 512 
199 di=rand( ) mod 512 
299 ei=rand( ) mod 512 
219 fi=rnd()*65535 
2209 box(bi,ci,di,e1i,fi,&HFFEFF ) 
239 next 

249 for ai= の to 399 

259 p( ) 

269 next 

279 end 


289 funo p( ) 
299 paint(rnd( )*511,rnd()*511,rnd()*65535 ) 
399 endfuno 


175 


第 4 章 リフ ァ レ ンス 


PALET GRAPH 


用 例 


palet (p,c) 

int 

Void 

グラ フィ ッ ク 画 面 の 各 パ レッ ト に カラ ー コ ー ド c を 割り あて ます 。 


DC の パパ レッ トコ ー ド (0-255) 

SCO カラ ー コ ー ド (0 65535) 
この パレ ッ ト コ ー ド p の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド に よ 
り ま す 。 
な お 、 グ ラフ ィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド が 512X512、65536 色 の 場合 は 、 
パレ ッ ト コ ー ド p と カラ ー コ ー ド c は 1 対 1 に 対応 し 、 同 値 と し て 扱わ ん る の で 、 こ の 
palet 関 数 は 無効 と な り ま す 。 こ の 場合 マレット コー ド p は 0 か ら 65535 の 値 を と る こ 
と が で きま す 。 


1 の /* pa1et sample 

20 int ai=15,bi,oci ,di 
3 の dim int aia(7) 

49 scoreen 2,9,1,1 

59 vpage(1) 


69 fi11(199,199,667,411,15):aia(9)=65535 /* color code = 65535 
79 fi11(129,129,647,391,13):aia(1)=65473 /* co1or code = 65473 
86 fi11(149,149,627,371,11):aia(2)=63551 /* color code = 63551 
99 fi11(169,169,697,351,9):aia(3)=63489 /* oolor oode = 63489 
199 fi11(189,189,587,331,7):aia(4)=2947 /* color oode = 2047 
119 fi11(299,299,567,311,5):aia(5)=1985 /* col1or code = 1985 
129 fi]11(229,220,547,291,3):aia(6)=63 /* color oode = 63 
139 fi]11(249,249,527,271,1):aia(7)=1 /* color oode = 1 


149 while -1 

159 oi=bi mod 8 

169 palet(ai,aia(ci ) ) 

17 の if ai=1 then ai=15:ocontinue 
189 ai=ai-2 

199 bi=bi+1 

299 for di=9 to 369 

219 next 

229 endwhi1e 

239 end 
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標準 関数 
pi(【n〕) 
float 
float 


円 周 率 の n 借 を 返し ます 。 数 値 n を 省略 する と n= 1 と 見 な され ます 。 


昌和 | 
勤 | | 高 | | 癌 | | ル 


OCGCCGCCLCCCD 僧 
| 19 /* pi sample 
用 例 209 print pi( ) 


39 print pi(2) 
49 print pi(4.675#) 
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POINT GRAPH 


point (xy) 


引 数 int 
int 


機 能 グラ フィ ッ ク 画 面 上 の ドッ ト の パレット コ ー ド を 返し ます 。 


Gez 2 252 ドッ ト の XX 座標 
Yoo の の ドッ ト の Y 座 標 


x、y は window 関 数 で 指定 され た クリ ッ ピ ング エリ ア 内 の 値 を 取る こと が で きま す 。 
戻り 値 と し て 、0 か ら 65535 の パパ レッ トコ ー ド を 返し ます 。 た だ し 、 その ノ パ マレット コー 
ド の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及び 色 モ ー ド に より ます 。 


19 /*# point sample 
2 の 1nt gi1=255 ,bi エ =255 。 Gi di=1 ei=1 1 
39 screen 2,9,1,1 
49 vpage( 1 ) 
59 1ine(199,199,667,199, 3 ,&HFFFF ) 
69 1ine(199,199,190,411,9,&HFFFF ) 
7 の line(199,411,667,411,11,&HFFFF ) 
89 1ine(667,199,667,411,13,&HFFFF ) 
99 while -1 
199 ai=ai+d ュ 
119 bi=bi+ei 
129 oi=point(ai ,bi ) 
139 switoch oi 


140 Case 3:ei=1:fi=1:break 
159 case 9:di=1:fi=1:break 
160 Case 11:ei=-1:fi=1:break 
1709 Case 13:di=-1:fi=1:break 


18 の endswitoh 

199 if fi=1 then fi=9:oontinue 
299 pset(ai,bi , 5 ) 

219 endwhile 

2209 end 
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DOS 


テキ スト 画面 の 現在 の カー ソル の x 座 標 を 返し ます 。 代 入 す る こと は で きま せん 。 


19 /* pos sample 

20 print "X68999ACE" 

39 print "X68999ACE-HD 1 
49 print pos 

59 end 


int 


POW 標準 関数 


書 式 pow (nl .n2) 
引 数 float 


float 


合 ほ 、 エ ラー と な り ま す 。 


19 /* pow sample 

20 fl]oat af,bf,of,dFf 
3 の af=5.3# 

49 bf=2.8# 

5 of= ニ 2 .23# 

69 df=-2.87# 

7 の print pow(af,DF ) 
89 print pow(cf,df ) 
99 end 


戻り 値 
数 値 n1 の n2 乗 の 計算 を し ます 。n1 三 0 か つ n2 く 0 の 場合 と n1 く 0 か つ n2 が 整数 で な い 場 
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PRINT ステ ー ト メン ト 


(Dprint (using < 書式 制御 文字 列 >}(< 式 >.. 
(Jp 


機 能 テキ スト 画面 に 文字 列 や 数 値 を 表示 し ます 。 
print 命 令 に 続け て 数 値 写 文字 列 を 指定 する と 、 そ の 数 値 、 文字 列 が テキ スト 画面 に 表 
示さ れ ま す 。 ま た 、 数 値 型 変数 や str 型 変数 が 指定 され る と 、 そ れ ら の 変数 に 代入 され 
て いる 数 値 や 文字 列 が テキ スト 画面 に 表示 され ます 。 
print 命 令 だ け を 指定 する と 改行 が 行わ れ ま す 。 
数 値 を 表示 する 場合 、 そ の 後ろ に 必ず 空 折 が 1 つ 入 り ま す 。 ま た 、 数 値 の 前 に は 符号 
用 の 桁 が 用 意 さ れ 、 プ ラス ( 十 ) の と き に は 空白 、 マ イナ ス (一 ) の と き に は マイ ナス 待 
号 ( 一 ) が 表示 され ます 。 
復 数 の デー タ を 表示 する 場合 、 それら の 区 切り と し て 、 カ ンマ ( , )、 セ モミ コロ ン (? ) 
が 使え を ます 。 カ ンマ を 使う と print 命 令 の 後ろ の デー タ は テキ スト 画面 の 一 番 左 の 列 に 
表示 され 、8 桁 ご と に 区 切っ て 表示 され ます 。 区 切り に も ミコ ロン を 使う と print 命 令 
の 後ろ の デー タ が つなが っ て テキ スト 画面 に 表示 され ます 。 一 番 最後 の データ の 後ろ 
に セミ コロ ン を 置く と 、 つ ぎの print 文 の デー タ が 前 の デー タ に つなが っ て 表示 され ま 
す 。 
lprint 命 令 を 使う と 、 テ キス ト 画 面 の 代わ り に プリ ンタ に 出力 する こと が で きま す 。 
print 命 令 の 省略 形 と し て ? (疑問 符 ) を 使う こと が で きま す 。 
print 命 令 の 後に 、using と 書式 指定 子 を 続け る こと に よっ て 、 様 々 な フォ ー マ ッ ト で デ 
ー タ を 表示 、 出 力 す る こと が で きま す 。 
print using 命 令 を 使用 し た 場合 は 、 複数 デー タ を 扱う こと は で きま せん 。 必ず 、1 つ 
の デー クタ だ な り ます 。 


1 . 数 値 型 

# 表示 する 数 値 の 桁 数 を 指定 し ます 。 数 値 の 桁 数 が 、 指 定 さ れ た 桁 数 
より 少な けれ ば 右 詰め で 表示 、 出 力 さ れ ま す 。 

8 小数 点 の 位置 を 指定 し ます 。 は み 出 す 部 分 は 四捨五入 され ます 。 

ボー 正負 の 符号 を つけ ます 。 負 の 符号 は 、# の 列 の 後に の み 設 定 で きま 
す 。 

*※ ポ 空白 の 部 分 を アス タリ スク (*) で 埋め ます 。 

\\ 数 値 の 先頭 に 壮 マ ー ク を 付け ます 。 

ネネ \ 空 暫 を アス タリ スク (*) で 埋め 、 先 頭 に 壮 マ ー ク を つけ ます 。 


0082000 お 0 数 値 を 指数 表現 で 表示 、 出 力 し ます 。 
9 3 桁 ご と に カン マ ( 。 ) を ふり ます 。 
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&( 空 白 )& 


@ 


3 . その 他 


文字 列 の 先頭 の 1 文字 の み を 表示 、 出 力 し ます 。 
文字 列 を 交 か ら 層 まで の 文字 数 分 だ け 表 示 、 出 力 し ます 。 
文字 列 を すべ て 表示 、 出 力 し ます 。 


(アン ダー スコ ア ) この 後 の 書 式 指定 子 の 1 文字 は 、 単 な る 文字 と し て 表示 、 出 力 し ま 


す 。 書 式 指定 子 以外 の 文字 が あっ た 場合 は 、 そ の まま 表示 、 出 力 さ 
ん ます 。 


/* print using sample 


print 
print 
Print 
prin て も 
prin セ も 
prin セ も 
print 
Print 
Print 
prin セ も 
print 
print 
print 
print 
end 


uS1ing 
u81mg 
u ヨ 1ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uS1ng 
uS1nmg 
US1ng 
uS1ng 
uS1ng 
US1ng 


1" SHARP X68999ACE" 
"を &": "SHARP X68999ACE" 
リ ######")680.4086# 

リ #### す #.#「:680.9686# 

リキ #####。#"j689.0286# 
「#####.#ー" ュ ー68 の .0586# 
リネ ネ ####。#":6899.186# 

「\ ぎ #### す .# "168 の 0.8786# 

リネ まま ##.#「:680.9886# 

リ #####,.#":6899.986# 

リ ######.# つ ここ)1234.56# 


「\\###. -':689.0086# 
リ #####")12345678.5488# 
"This is a @. ":"X68999ACE" 
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PSET 


GRAPH 


用 例 


Dset (x,y,p) 
int 
Void 


グラ フィ ッ ク 画 面 上 に ドッ ト を 表示 し ます 。 


GCCCCCCCCLE ドッ ト の XX 座標 
Yo ドッ ト の Y 座 標 
DOT の 2 パレ ッ ト コ ー ド ( 色 ) 


x、y は 、 一 32768 か ら 32767 ま で の 値 を 取る こと が で きま す 。 ク リッ ピン グ エ リ ア に つ 
いて は window 関 数 で 指定 され た 範 胃 に な り ま す 。 ま た パレ ッ ト コ ー ド p は 0 か ら 
65535 ま で の 値 を 取る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ お 
よび 色 モ ー ド に より 孝 す 。 

16 /* pset gaWipte 

29 int ai,bi,oi,di 


39 float af 
49 soreen 1,3,1,1 


59 vpage(1) 

69 for ai=1 to 5 

79 for bi= の to 511 

89 af=(2*3.141#*bi ) /512*ai 
99 ci=255-sin(af)*200 

199 di=rnd()*65535 

119 jpSset(bi,oci,。di ) 

120 next 

139 nex セ も 

149 end 
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用 例 


財 」 


GRAPH 


put(x1,y1.x2.y2.na) 


int(xl,y1,x2.y2) , 数 値 型 一 次 元 配 列 名 (na) 


void 


get 関 数 で 読み 込ん だ ドッ トバ パタ ー ン を 指定 され た 配列 na か ら 読み 出し て グラ フィ ッ 
ク 画 面 上 の 指定 領域 に 表示 し ます 。 


2 上 co7 始点 X 座 標 
Ne one 始点 Y 座 標 
2 mm 終点 X 座 標 
9 … で mr 終点 Y 座 標 
12 ドッ ト パ タ ー ン が 格納 され て いる 数 値 型 一 次 元 配 列 名 


x1、y1、x2、y2 は 、window 関 数 で 指定 され た 範囲 内 の 値 を 取る こと が で きま す 。 ま 
た 、 配 列 na 内 の デー タ 構 造 に つい て は 、get 関 数 を 参照 し て くだ さい 。 

と くに 、put 関 数 を 実行 する 前 に あら か じ め get 関 数 で 読み こん だ と き と 同 じ グ ラフ ィ 
ッ ク 画 面 の 実 画面 サイ ズ お よび 色 モ ー ド に し て 、 領 域 の 大 き さ で 配列 na の デー タ 型 、 添 
字 な ど は 同じ に な る よう に 指定 し て くだ さい 。 


get 


/* get & put samp1le 

ま 反 も 遇 半 4D る で き 

dim int aia(4899) ,bia(4899 ) 
screen 1,3,1,1 

Ypage(1) 

rainbow( ) 

box( の 9,9,139,.69,65535,&HFFFF ) 
get( の 9,9,139,69,aia ) 

/* save gram data to file 
ai=fopen("a:test.dat", "oc" ) 
fQrite(aia,4999,ai ) 

fclose(ai ) 
wipe( ) 
/* 1oad gram data from file 
ai=fopen("a:test.dat",」 "rw” ) 
fread(bia,4999,ai ) 
fclose(ai ) 
wipe( ) 
for ai= の to 19 
bi=ai*30 
put( bi , bi , bi+139,bi+69,bia ) 
for oi= の to 10999:next 
next 
end 
funo rainbow( ) 
for ai= の to 63 
bi=ai*#3 
cirole(69,69,ai,hsv(bi ,31,31)+1,19,179,380) 
19【 ニ と. る 
endfunc 


/* 140*79/2bytes 
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rand( ) 
int 
0 以上 32767 以 内 の 整数 型 乱数 を 返し ます 。 


randomize、rnd、srand 


19 /* rand sample 


29 int ai 

39 for ai= の to 109 
49 print rand( ) 
59 next 

69 end 


RANDOMIZE 標準 関数 


randomize(1 
int 
void 
rnd() 関 数 の 乱数 系 列 を 初期 化し ます 。 
ee 乱数 の シー ド (一 32768 ミ i< ミ 32767) 


rand、rnd、 srand 


1 /* randomize sample 
2 の int ai,bi 
39 for ai= の to 2 


4 の randomigze(1int(32767*rnd( )-32768*rnd( ) ) ) 
59 for bi=9 to 19 

69 print rnd( ) 

79 nex 

89 next 

99 end 
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グ * (< 注釈 文 


プロ グラ ム 中 に 注釈 を 入れ ます 。 
/※* に 続く 文字 列 は 、 プ ログ ラム 中 の 注釈 に な る だ け で 、 プ ログ ラム の 実行 に は まっ 
た く 関 係 し ませ ん 。 プロ グラ ム を 見 や すく する 覚え 書き と し て 使用 し て くだ さい 。 


1 の /* rem (/*) samp1le 

20 / ネ 

39 /* super persona1] workstation 
49 /* 

59 print "X68999ACE" 

69 end 


RENUM J 


renum [< 新 行 番号 > 〔, <I 旧 行 番号 >]〔, < 増分 >〕 
Te1. 


プロ グラ ム の 行 番号 を 付け 直し ます 。 
< 新 行 番号 >、< 増 分 > と も 、 省 略す る と 10 が 採用 され ます 。 く 旧 行 番号 > を 指定 しない 
と 、 そ の プロ グラ ム の 先頭 か ら 新しい 行 番号 に 変わ り ます 。 た と えば 、 


Fenurm 
プロ グラ ム 全 体 の 行 番号 を 付け か えま す 。 新 し い 行 番号 は 10 か ら 始 ま 
り 、20、30…… と 付け られ ます 。 


renum 100,50 
行 番号 50 に 新しい 行 番号 と し て 100 が 付け られ 、 以 降 110、120・…… と 付け 
直さ きれ ます 。 


renum 100,,100 
プロ グラ ム 全 体 の 行 番号 を 付け か えま す 。 新 し い 行 番号 は 100 か ら 始ま 
り 。 200、 300coe と 付け られ ます 。 
renum 命 令 は 、goto 命 令 、gosub 命 令 、then 節 、else 節 な ど で 使 われ て いる 行 番号 は 
変更 し ませ ん 。 
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REPEAT-CUNTIL ステ ー ト メン ト 


書 式 repeat 
く レ ループ の 内 容 > 
until < 式 > 


機 能 < 式 > の 値 が 真 に な る まで 、 指 定 さ れ た レー プ ブ の 内 容 > を 旨 り 返し (/ レ ー プ ') ます 。 
繰り 返し の 終了 判定 は ウレ ー プ の 内 容 > の 実行 後に 行わ れ ま す 。 少な く と も 、1 回 は く レ 


ー プ の 内 容 > を 実行 し ます 。 
用 例 19 /* repeat unti1] sampl1e 
20 int ai 
3 の repeat 
409 input "1+2=" ai 


59 unti1] ai=3 
50 prin も "olk*" 
79 end 


RGB GRAPH 


rgb(r, g, b) 
char 
戻り 値 int 


r( 赤 )、g( 緑 )、b( 青 ) の 成分 を 0 一 31 で 選び 、 カ ラー コー ド を 求め ます 。 な お 、 こ の 
rgb 関 数 に よっ て 得 ら れる カラ ー コ ー ド は 、0 一 65534 ま で の 偶数 値 に な り ます 。 し た 
が っ て 、 そ れ ぞ れ の 偶数 値 に 1 を 加え る こと で 0 一 65535 ま で の カラ ー コ ー ド を 指定 
で きま す 。 


19 /* rgb sample 

20 int ai。Dbi。oi 

39 soreen 1,3,1,1 

49 vpage(1 ) 

59 1ocate 7,4:print "の " 

69 1ocate 4,17:print "Blue" 
79 1ocate 33,4:print "Green" 
89 1ocate 62,4:print "31" 

99 1ocate 6,39:print "31" 
199 for ai= の to 31 


110 1ooate 1,1:print "Red = "jai 

120 for bi= の to 31 

130 for oi= の to 31 

149 fi11(bi*14+64,ci*14+64,bi*※14+78,C1*※14+78,rgb(ai,bi,o1 ) 
159 nex も 

169 nex も 

179 next 

189 end 
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RIGHT 中 準 関数 


に 3 


right$ (st,}) 
str (st) , int G) 
Str 


文字 列 st の 終り か ら 指定 され た 文字 数 ? 分 の 文字 列 を 取り 出し て 返し ます 。 


St ………… 元 の 文字 列 (文字 式 ) 
全 COCCCCCO 取り 出し た い 文 字数 


文字 数 i は 、 1 か ら 255 の 値 を と り ま す 。 
指定 され た 文字 数 : が 文字 列 st の 総 文字 数 より 大 きい と き は 、 文 字 列 st を その まま 取り 
出し て 返し ます 。 指定 され た 文字 数 : が 、 0 また は 負 の 場合 は null 文 字 を 返し ます 。 


left$ 、mid$ 


19 /#* right$ sample 

29 str as 

39 as="persona1 workstation X68999ACE" 
49 print right$(as,9) 


59 end 
RND 準 関数 
書 式 rnd( ) 
foat 
機 能 0 以上 1 未満 の 実数 型 乱 数 を 返し ます 。 


rand、randomize、 srand 


10 /#* rnd sample 


29 int ai 

39 for ai= の to 19 
49 print rnd() 
59 next 

69 end 
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RUN 


書 式 


run < 行 番号 >) 

tttn WCF ライ アブ 名 < く フ ァイル 名 

メモ リ に ある プロ グラ ム を 実行 し ます 。 

< 行 番号 > を 省略 する と 、 先 頭 行か ら プ ログ ラム を 実行 し ます 。 

ドラ イブ 名 、 フ ァイル 名 が 指定 され た 場合 は 、 指 定 さ れ た ファ イル を ロー ド し て 実行 
し まず 。 

く < ドラ イブ 名 >、< フ ァイル 名 > に つい て は 「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 参照 
し で. くだ さ Ues 

途中 で プロ グラ ム の 実行 を 中 止 し た いと き は 、ICTRL| 十 | C | キー また は 
BREAK | キー を 押し ます 。 


ERZ ジ シド 


savel[@〕 "< ドラ イブ 名 >〕 く < ファ イル 名 >"(, < 行 番号 1>]【 一 【< 行 番号 2>〕〕 


Sa. 

メモ リ 上 の BASIC プ ログ ラム を 、 セ ー プ し ます 。 

Save で は プロ グラ ム を アス キー 形式 で セー ブ し ます 。 セ ー プ され る 行 番号 の 範囲 は 、 
list 命 令 と 同様 に 行わ れ ま す 。 save@ は 、 行 番号 を 省略 し た 形 で プロ グラ ム が セー プ ブ さ 
家 ま 9 

< ドラ イブ 名 >、< フ ァイル 名 > に つい て は 「Human68k ユ ー ザ ー ズ マニ ュ ア ル 」 を 参照 
し で ぐ 記 党 MS。 


load 


SaYe "a:\test.dat" 
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SCREEN ステ ー ト メン ト 


screen < 表示 画面 サイ ズ >〕, 〔 く グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド >)〕, 
< ディ スプ レイ 解像度 >(, く グラ フィ ッ ク 画 面 の 表示 ON/OFF>) 


SC。 


画面 全体 (テキ スト 画面 、 グ ラフ ィ ッ ク 画 面 、 ス プラ イト 画面 ) の スク リー ン モ ー ド 
を 設定 し ます 。 


< 表示 画面 サイ ズ > 
0…………256X256 
1 …………512X512 
2…………768X512(< デ ィ ス プレ イ 解 像 度 > が 1 ( 高 解像度 モー ド ) の と きのみ 使 
用 可能 


た だ し 、 < 表示 画面 サイ ズ > が 768X512 以 外 の と き に の み 、 ス プラ イト 画面 は 使用 で き 
ます 。 また 、 < 表示 画面 サイ ズ > が 768X512 の と き は 、 < グラフィ ッ ク 画 面 の 実 画面 サイ 
ズ 及 び 色 モー ド > は 、 0 し か 設定 で きま せん 。 


< く グ ラフ ィ ッ ク 画 面 の 実 画面 サイ ズ 及び 色 モ ー ド >( 使 用 可能 な グラ フィ ッ ク ペ ー ジ ) 


0………… 1024X1024、16 色 (グラ フィ ッ ク ペ ー ジ (0 ) 

1……… 512X512、16 色 (グラ フィ ッ ク ペ ー ジ 0 一 83) 
2………512X512、256 色 (グラ フィ ッ グ ペー ジ 0、1) 
3………512X512、65536 色 (グラ フィ ッ ク ペ ー ジ 0 ) 


た だ し 、 く < グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及び 色 モ ー ド > が 0 以外 の と き は 、 < 表示 画 
面 サイ ズ 〉 は 0 また は 1 し か 設定 で きま せん 。 


< ディ スプ レイ 解像度 > 

0 Low (標準 解 像 度 ) 

1………… High( 高 解像度 ) 
た だ し 、screen ,,0 は < ディ スプ レイ 解像度 > の み を Low に 設定 し 、screen ,,1 
は < ディ スプ レイ 解像度 > の み を High に 設定 し ます 。 この 場合 、 グ ラフ ィ ッ ク RAM の 
デー タ は 保存 きれ た まま ます 。< デ ィ ス プレ イ 解 像 度 > が Low の と き は < 表示 画面 サイ 
ズ > で 768X 512 は 使用 で きま せん 。 


く < グラ フィ ッ ク 画 面 の 表示 ON/OFF> 
0…… 家 示 OFF (グラ フィ ッ ク 関 数 使用 不可 ) 
グラ フィ ッ ク RAM を グラ フィ ッ ク 以 外 の 目的 で 使用 する 場合 に 設定 
じ で だ さぬき 。 
1…… 表 示 ON (グラ フィ ッ ク 関 数 使用 可 ) 
グラ フィ ッ ク RAM を グラ フィ ッ ク 関 数 な ど で 使 用 する 場合 に 設定 し 
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て くだ さい 。 (グラ フィ ッ ク RAM 初 期 化 ) 
な お 、 一 旦 く ダラ フィ ッ ク 画 面 の 表示 ON/OFF> を 1 に 設定 する と すべ て の グラ フィ 
ッ ク RAM の デー タ は 消去 され ます 。 特に グラ フィ ッ ク RAM を RAM デ ィ ス ク と し て 
使用 し て いる 場合 は 、 RAM デ ィ ス ク が 破壊 され ます の で 、 あらかじめ RAM デ ィ ス ク 
の デー を ディ スク な 所 ほや テ と デジ し で くだ お きい, 


screen 命 令 実行 後 、window 関 数 (グラ フィ ッ ク 画 面 の クリ ッ ピ ング エリ ア ) は 表示 画 
面 サ イズ に 、home 関 数 (グラ フィ ッ ク 画 面 の 実 画面 に お ける 表示 画面 の 左上 座標 ) は 
(0 , 0 ) に 再 設 定 さ れ ま す 。 ま た 、 テ キス ト 画 面 は 、 通 常 表 示 ON、 ス プラ イト 画面 及 
び グ ラフ ィ ッ ク 画 面 は 表示 OFF で す 。 

グラ フィ ッ ク 関 数 を 使用 する 場合 は 、 必ず 最初 に screen 命 令 で 初期 化 を 行っ て くだ さ 


が 


SEARCH 二 


書式 | 


Isearch "< 検索 文字 列 >" 
Jse. 


指定 し た < 検索 文字 列 > を 含む ゲ プログラム 行 を すべ て 表示 し ます 。 
lsearch 命 令 を 使用 すれ ば 、 プ リン タ に 出力 で きま す 。 


searoh "ACE" 
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SE TMSPOS 


MOUSE 
setmspos(x.Y) 
mt 
戻り 値 int 
機能 マウ スカ ー ソ ル の 位置 を 指定 し ます 。 男 囲 は 、 msarea 関 数 に よっ て 指定 され た 男 囲 で 
す 。 戻 が 偽 と し で 、 エ ラー の と き 一 1 を 返し まず 。 
19 /* setmspos sample 
]| 
用 例 の の さま 叉 も ね = は bi 6 は 
39 screen 2,9,1,1 
49 vpage(1) 
50 mouse(0) 
69 msarea(9.9,767,511) 
79 box(9,9,767,511,15,&HFFFF ) 
89 mouse(1) 
99 while ai<>0 の 
199 print "mouse Cursor area (X) = 9---767" 
119 print "mouse cursor area (Y) = 9@---511" 
120 input "mouse cursor poSsition (X,Y) = 本 1 中 
1309 setmspoS( bi ,oi ) 
149 endwhile 
159 end 
SGN 
sgn (n) 
引 数 float 
戻り 値 float 


/* sgn sample 

print sgn(4523453.453#) 
print sgn(9) 

print sgn(-442134.24568#) 
end 
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SIN 標準 関数 


sin(n) 


引 数 float 


rom 


数 値 n( ラ ジア ン ) の 正弦 (サイ ン ) を 返し ます 。 


19 /* sin sample 
2 int ai,bi,oi ,di 
39 float af 
49 soreen 1,3,1,1 
59 vpage(1 ) 
69 line(9,255,511,255,65535 ,&HFFFF ) 
7 の for ai=1 to 3 
809 for bi= の to 511 


969 af=(2*pi ( )*bi ) /512*ai 
1909 ci=255-sin(af )*2090 
110 di=rnd( )*65535 
1209 pset(bi,oi,d ュ ) 

139 nex も 
14 の next 
159 end 


SPACE $ 標準 関数 


| 書式 | SDace$ ()) 
int 


戻り 値 str 


長 さ i は 1 か ら 255 の 値 を と り 、0 または 負 の 場合 に は null 文 字 を 返し ます 。 


1 の /* space$ sample 
29 str as[2551 

39 as=spaoe$(254 )+"\" 
4 の print ag 

59 end 


長 さ i 文 字 の 空白 文字 (&H20) か ら な る 文字 列 を 返し ます 。 
| 用 例 | 
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SP CLR SPRITE 


sp clr(〔cd1]〔, cd2〕) 
char 
int 


パパ ター ンコ ー ド cd1 か ら パ ター ンコ ー ド cd2 で 指定 し た 範 団 の スプ ライ ト や バッ ク グ 
ラウ ンド の パタ ー ン を 初期 化し ます 。 

ッ パパ ター ンコ ー ド cd1 を 省略 し た 場合 は 、 や マタ ー ン コー ド 0 か ら パ ター ンコ ー ド cd2 ま で 
の パタ ー ン を 初期 化し ます 。 パタ ー ン コー ド cd2 を 省略 し た 場合 は 、 パ パタ ー ン コー ド 
cd1 で 指定 し た パタ ー ン だ け 、 ま た パパ ター ンコ ー ド cd1、cd2 と も 省略 し た 場合 は 全 パ タ 
ー ン し パターン コー ド 0 255) が 初期 化 さ れ ま す 。 


cd1、cd2… ン パタ ー ン コー ド (0 一 255) 


SP COLOR 6 


中 
2 


若 | | 測 | | 
鼓 | | 二 | | 難 


sp color(p,c【, pb〕 ) 
char (p, pb) , int (c) 
int 


スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン 単位 に パレ ッ ト ブ ロッ ク pb を 指定 し 、 その 
パパ ター ン の ドッ ト 単 位 に ( 各 パ ター ン に お ける パレ ッ ト プ ブロ ッ ク pb の 中 か ら ) パレ ッ 
トコ ヨー ド p を 設定 し 、 そ の パレ ッ ト に カラ テラー コー ド c を 割り あて ます 。 な お 、 パ レッ ト 
プ ブロック pb を 省略 し た と き は 、 ノ パ レッ ト プ ブロッ ク 1 と 見 な され ます 。 パレ ッ ト コ ー ド 0 
に は 透明 を 設定 し て くだ さい 。 

戻り 値 と し て 、 指 定 さ れ た パレ ッ ト コ ー ド p に 対す る 設定 前 の カラ ー コ ー ド を 返し ます 。 


2 パレ ッ ト コ ー ド (0 一 15) 
に RY カラ ー コ ー ド (0 一 65535) 
Pb ……… 2 ッ マ レッ トブ ロッ ク (1 一 15) 
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SP DEF 謗 


書 式 


sp def(cd, ca(, sz] ) 
char(cd, sz), char 型 一 次 元 (255 ま た は 63) 配 列 名 (ca) 
int 


スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン を 定義 し ます 。 


Cd nee ba: ッ パ ター ンコ ー ド (0 一 255) 

PE rosearss スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン の デー タ が 格納 され て い 
る char 型 一 次 元 配列 名 、 要 素数 256 (sz 三 1 の と き ) ま た は 64(sz= ニ 0 
の と き ) 

2 計 ーm ザ ーー パターン サ イズ (0、1) 


ノバ パ ター ン サ イズ sz が 1 の 場合 、 定義 で きる パタ ー ン は 16X16 ド ッ ト で 、1 ド ッ ト に つき 

配列 ca の 1 要素 を 使用 し ます 。 0 番目 の 要素 が パタ ー ン の 左上 端 の ドッ ト 、15 番 目 の 要 

素 が パタ ー ン の 右上 端 の ドッ ト に 対応 し ます 。 こ の 場合 の 配列 ca の 要素 数 は 256 に な 

り ます 。16X16 ド ッ ト の パタ ー ン が 使用 きれ る の は 、 ス プラ イト の パタ ー ン や 表示 画 
面 サ イズ が 512X512 の 場合 の バッ ク グ ラウ ンド の パタ ー ン を 定義 せる と き で す 。 ま 

た 、 ノ パタ ー ン サイ ズ sz が 1 の と き 、 バ パッ ク グ ラウ ンド の テキ スト ペー ジ 1 し か 使用 し な 

い 場 合 の パタ ー ン コー ド cd は 0 か ら 191 ま で の 値 を と る こと が で き 、 テ キス トペ ー ジ 0、 
1 と も 使用 する 場合 の の パターン コー ド cd は 0 か ら 127 ま で の 値 を と る こと が で きま す 。 

パ バック グラ ウン ド の テキ スト ペー ジ 0、1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 し 

な い ) 場合 の パタ ー ン コー ド cd は 0 か ら 255 ま で の 値 を と る こと が で きま す 。 

パパ ター ン サ イズ sz が 0 の 場合 、 定義 で きる パタ ー ン は 8X8 ド ッ ト で 、 1 ドット に つき 配 
列 ca の 1 要素 を 使用 し ます 。 0 番目 の 要素 が パパ ター ン の 左上 端 の ドッ ト 、7 番 目 の 要 素 が 
ッ パパ ターン の 右上 端 の ドッ ト に 対応 し ます 。 こ の 場合 の 配列 ca の 要素 数 は 64 に な り ま 

す 。 8X8 ド ッ ト の パタ ー ン が 使用 きれ る の は 表示 画面 サイ ズ が 256xX256 の 場合 の バッ 

ク グ ラウ ンド の パタ ー ン を 定義 むす る と き で す 。 

パターン サイ ズ sz が 1 の と き 、 パ ター ンコ ー ド n と いう パパ ター ン が 定義 され て いた と し 

ます 。 こ の 16X16 ド ッ ト の パタ ー ン と 同じ も の を 定義 むす る た め に は 、 パパ ター ン サ イズ 
Sz が 0 の と き 、4 つ の パターン コー ド が 必要 に な り ま す 。 こ の 4 つの パタ ー ン コー ド に 
は 、16X16 ド ッ ト の パターン の 肉 、 左上 の 8X8 ド ッ ト の パタ ー ン が 、 パタ ー シ ョ ヨード 

4n に 、 左 下 の 8X8 ド ッ ト の パタ ー ン が パタ ー ン コー ド 4n 十 1、 以 下 同様 に 右上 が 4n 十 

2、 右 下 が 4n 十 3 に 対応 し ます 。 た だ し 、 フ パター ン サ イズ sz が 0 の と き で も 定義 で きる パ 
ター ン の 最大 数 は 256 で す 。 

な お 、 ノ パタ ー ン サイ ズ sz を 省略 する と 、 ノ パタ ー ン サイ ズ sz は 1 と 見 な され ます 。 ま た 、 
1 ドッ ト の デー タ は 4 ビッ ト で この 値 が その ドッ ト の パレ ッ ト コ ー ド p と な り ま す 。 


sp pat 
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79 山 Go 5。 7 9。1T US 6019 195 11 9。 5 3 も)。 

89 届 あ 9 Op の の 990) 85 55 UL 。 9 7 8 3 7 

99 3 が DDS its KS KS3KL 19 Se HDS Sc 

199 生ま SN 0 130 ポ > 9。 7 83 3 

119 Si2 の 3 89500 GSI5 DDH35OUS 9。 7 。 ちら 3。 は 

129 きき 。 の 7。 の 905 1845。15。13 10。 9。 7。 5。 8。 1! 

139 3 5y が 95 935.56 1935411。 9。 7。 95。 35 1。 

1409 まま まな 7 ッッ 31 の 3 5 055 ま 3 は) 9 75 5383。 ま 。 

1509 By 9 79eEU US RDG EDN3 WO 9。 の お あお) 335 15 

169 NB CS 2L 山 届 3 55 6 3 0 19 の 55 3 が 中: 

179 3 5) 7 931 19 5.1321。 9。 7。 5 3。 1 

189 9 な 7 95 0 も 3) HU5 SB.43510、 9 7。 5 3。 05 

199 3 9 0 9 は 3 DS315 13。dU。 9。 7。 5。3。 5 

2909 。 き 。 の 。 イィ (95HD AD Sg 13。 は 1 > 9 7。 5。 8。 。 

219 0 937 5 7595 まお) 08 USD5 3 1 は 9) 25 わぁ 3 小 5 

220 まぁ 3 0 7 9 1 830213.11。 9。 が 。 5。 3。 il 

2309 

24 の /* define background-pattern 

259 dim char BG9(63)={ 

269 9。 8 の 。 8。 9。 8。 9 の 。 8, 

27 の 9 8, の 9, の 。 の ,。 の 9, の 9, 9。 9。 

280 の の 。 9, 9,。 の @, 9, 9 の, 8。, 

499 8。 9。 9。 の ひ 。 の 9, の , 0 の,。 6@, 

399 0 の 。 0。 の)。 9 の 、 の 。 0 8。 

319 8。 0。 の ひ 。 の 。 9 の,。 0。 0@。 @。 

320 0 9) の 3 0) の 。 の 。 ⑩。 18。 

339 8, の ,。 8。 の 。 8。 9。 8。 の ひ 

349 } 

359 dim char BG1(63)={ 

369 9 の, 9, 9, の 9, 9, 9, の, の, 

379 の 9 の.19, の ,19,。 9,19, 9, 9, 

389 9, の, 9, の, の @, 9,19, 9, 

3909 9.1 の 。 の ひ 。 の 。 9。 の 。 @。 の 。 

499 9, の 9, の , の , 9, の,19, の, 

419 9.19, 9, の , 9, 9 の, 9, 9, 

420 9, 9 の,19, の,19, の,19, 9, 

139 90, の ひ , の 9 の 。 の 0。 9 の,。 の の 9。 の ひ 

449 } 

45 の /* main */ 

469 screen 9,3,1,1 /* 表示 画面 サイ ズ 256*256 (768*512 以 外 な ら ス プラ イト 
画面 使用 可能 ) 

479 sp_init( ) /* スプ ライ ト 画 面 の 初期 化 

489 sp_clr(9,255) /* ま 区 プラ イド パタ ダ ター ツジ の クリ ア (6 以上 255 以 下 の パ ター ッッ 
3 三流 

490 sp_disp(1) /* スプ ライ ト 画 面 の 表示 (9 な ら 表 示せ ず 、1 な ら 表 示す る 
) 

599 sp_on(9,1) /* スプ ライ ト プ レ ー ン の 表示 (9 以上 127 以 下 の プ レー ン 番 
号 ) 

S10 /#* set sprite-pattern & baokground-pattern 

529 sp_def(9,SP9, 1 ) /* 16*16 dots 

539 sp_def(4,BG9,9) /* 8* 8 dots 

549 sp_def(5,BG1,9) /* 8* 8 dots 

559 /* set palet-b1ook 

569 pb=14 

570 for = の to 15 

589 DGG ミミ 

599 Sp_color(po,hsv(40,31,1*2+1 )+1 ,pb) 

699 next 

619 pb=15 

629 for = の to 15 

639 DC=1 

649 Sp_color(po,hsyv(99,31,1*2+1 ) +1 ,pb ) 

659 next 

669 /* set baockground 9 


/* sprite sample 

宇和 寺 あん 光ら 

char po,pb,Yr,hr,cd 
float f 

/* define sprite-pattern 
dim ohar SP の (255)=[{ 
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670 bg _ fi11( の ,pat dat( の 9,9,1,4 ) ) 

689 bg _set(9,9,1 ) 

699 /* set baokground 1 

799 bg fil1(1,pat dat(9,9,1,5) ) 

719 bg set(1,1,1) 

729 /* set sprite-plane の,1 & background の ,1 
739 i= の :di=1 

749 while -1 


人 馬 1= ュ 1 ュ +d ュ 1 

760 /* baokground soro11 

77 の 9 1 ず x1=511 thenm x1=@ 

789 if yl=511 then yl1=9 

799 x1=x1+1 

899 y1=y1+1 

810 bg_scro11( の 9,x1,y1) 

820 bg scrol11(1,511-x1,511-y1 ) 

8309 /* move SDprite 

849 用 で も も hen di= よ は 

85 if i>286 then di=-1 

860 f=(pi(2)*i)/288*8 

879 x2=128-129*sin(f)*oos(f)*Sin(f+pi ( ) /2 ) 

8809 /* プラ イオ リティ (sprite > baokground の > background1 ) 
899 Sp_Sset( の ,x2」i,pat dat( の ,9,15,9) ,3) 

999 /* デラ イオ 史 テ ォ ( background の > sprite > baokground1 ) 
9109 Sp_Sset(1,ijx2.pat dat( の 9,9,14,9),2) 

929 for j)= の 9 to 50:next 

930 endvwhile 

940 end 

950 Func pat dat(vr,hr,pb, od ) 

969 /* vr = 垂直 反転 (9 な ら 反 転 し な い 、1 な ら 反 転 する ) 
397 の /#* hr = 水平 反転 (9 な ら 反 転 し な い 、1 な ら 反 転 す る ) 
989 /* pb = パレ ッ ト ブ ロッ ク (1 以上 15 以 下 の 値 ) 

999 /* cd = パタ ー ン コー ド (9 以上 255 以 下 の 値 ) 

1999 return(vr*32768+hr*16384+pb*256+cd ) 


1919 endfunc 


SP_DISP SPRITE 


書 式 sp disp(ch) 


引 数 char 


戻り 値 int 


機 能 スプ ライ ト 画 面 (スプ ライ ト や バッ ク グ ラウ ンド ) の 表示 の 設定 を し ます 。 な お 、 ス 
プラ イト 画面 は 表示 画面 サイ ズ が 768X512 以 外 の と き 使 用 で きま す 。 


CH esse 0 (スプ ライ ト 画 面 を 表示 し な い ) 
1 (スプ ライ ト 画 面 を 表示 する ) 
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SP_ INIT SPRITE 


SP_ MOVE SPRITE 


SD init( ) 
int 


スプ ライ ト 画 面 (スプ ライ ト や バッ ク グ ラウ ンド ) を 初期 化し ます 。 初 期 化す る も の 
は 、 各 パタ ー ン や ッ マ レッ ト な ど で す 。 な お 、 スプ ライ ト 画 面 は 表示 画面 サイ ズ が 768X 
512 以 外 の と き 使 用 で きま す 。 


sp move(s,【x〕,〔y〕【, cd ) 
char (s,cd) ,int (x,y) 
int 


パパ ター ンコ ー ド cd の スプ ライ ト パ パ ター ン を プレ ー ン s に 割り あて 、 指 定 さ れ た 座標 位 
置 に その スプ ライ ト を 表示 し ます 。 ノ パ マタ ー ン コー ド cd を 指定 する と 、 そ の スプ ライ ト 
は 自動 的 に 表示 され ます 。 


Sr プレ ー ン (0 一 127) 
が LMULMLLE XX 座標 (一 16 一 1007) 
ym Y 座 標 ( 一 16 一 1007) 
電 紹 Hsssctn 79 タ ーシュ コー ド (0 一 555) 


表示 画面 の 左上 座標 は 、(0.0) に な り ま す 。 
バッ ク グ ラウ ンド の テキ スト ペー ジ 1 し か 使用 し な い 場 合 の パタ ー ン コー ド cd は 16X 


16 ド ッ ト パ ター ン の 場合 0 か ら 191 ま で の 値 を と る こと が で きま す 。 テ キス トペ ー ジ 0、 


1 と も 使用 する 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 127 ま で 
の 値 を と る こと が で きま す 。 テ キス トペ ー ジ 0、1 と も 使用 し な い (バッ ク グ ラウ ンド 
を 使用 し な い ) 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 255 ま で 
の 値 を と る こと が で きま す 。 
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SP_ OFF SPRITE 


se 寺 (tstlLs9) 


引 数 char 
戻り 値 int 


機 能 プレ ー ン s1 か ら プ レー ン s2 で 指定 し た 範囲 の スプ ライ ト が 表示 され ませ ん 。 プ レー ン 
s1 を 省略 し た 場合 は 、 プ レー ン 0 か ら プ レーン s2 ま で の スプ ライ ト が 表示 され ませ ん 。 
プレ ー ン s2 を 省略 し た 場合 は 、 プ レー ン s1 で 指定 し た スプ ライ ト だ け 、 ま た プレ ー ン 
s1、s2 と も 省略 し た 場合 は 全 ス プラ イト (プレ ー ン 0 一 127) が 表示 され ませ ん 。 


S1、S2…… プレ ー ン (0 ~127) 


に 】 ON SPRITE 


sp_on(【s1)〕〔, s2〕) 
char 
int 


プレ ー ン s1 か ら プ レー ン s2 で 指定 し た 範囲 の スプ ライ ト が 表示 され ます 。 プ "レー ン s1 
を 省略 し た 場合 は 、 プ レー ン 0 か ら プ レー ン s2 ま で の スプ ライ ト が 表示 され ます 。 プレ 
ー ン Ss2 を 省略 し た 場合 は 、 プ レー ン s1 で 指定 し た スプ ライ ト だ け 、 ま た プレ ー ン s1、 
S2 と も 省略 し た 場合 は 全 ス プラ イト (プレ ー ン 0 一 127) が 表示 され ます 。 


s1、s2…… プ レー ン ( 0 一 127) 
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SP PAT SPRITE 


sp pat (cd, ca【, sz] ) 
char(cd, sz) , char 型 一 次 元 (255 ま た は 63) 配 列 名 (ca) 
戻り 値 int 


スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン の デー タ を 、 指定 され た 配列 ca に 読み 出し 


届 。 
Cd sets ッ パ ター ンコ ー ド (0-255) 
Cl 63 スプ ライ ト や バッ ク グ ラウ ンド の パタ ー ン の デー タ を 格納 する 
char 型 一 決 元 配列 名 、 要 素数 256 (sz 三 1 の と き ) ま た は 64(sz 三 0 の 
と き ) 
隊 あ 3 パタ ー ン サイ ズ (0、1) 


読み 出さ れ た パタ ー ン の デー タ の 詳細 や 、 パパ マタ ー ン コード cd や 配列 ca、 パ ター ン サ イ 
ズ sz の 詳細 に つい て は 、sp def 関数 を 参照 し て くだ さい 。 


sp def 


に 


19 /* sp _pat sample 

2 の int ai,bi 

39 ohar ao 

4 の dim ohar aoa(255) 

S@ soreen 1。3,1,1 

69 input "スプ ライ ト (16*16 ト トッ ト ) の パタ ー ン コー ド を 入力 し て くだ さい (9~ て 255)---> 


7 の sp_pat(ac,aoa,1 ) 
89 for ai= の to 255 


99 if ai<>9 and (ai mod 16)= の 9 then print 
190 PTint uSing "###":aCa(a1 ) : 

119 next 

120 end 
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SP SET SPRITE 


書 式 sp_set(s, 【x], 〔y], 〔pd〕 〔, pr〕) 


char(s, pr) , int (x, y, pd) 


戻り 値 int 
スプ ライ ト の スク ロー ル 上 座標 を 設定 し ます 。 
SS プレ ー ン (0 一 127) 
発 RReoSicas X 座 標 (0 一 1023) 
YY で で "で" の Y 座 標 ( 0 一 1023) 
Pd ……… パタ ー ン デー タ (0 を HCFFF) 
PDY …… の em 優先 度 (0 一 3 ) 


表示 画面 の 左上 座標 は (16.16) に な り ま す 。 
パタ ー ン デー タ pd は 、 次 の よう な ビッ ト 構 成 に な っ て いま す 。( ビ ッ ト 12、13 は 通常 0 
に な り ま す 。) 

ビッ ト 15:……… 垂 直 反 転 (0 : 通 常 、1 : 垂直 反転 ) 

ビッ ト 14 …… 水平 反転 (0 : 通 常 、1 : 水平 反転 ) 

ビッ ト 8 一 11… ン パレ ッ ト ブ ロッ ク pb( 1 一 15) 

ビッ ト 0 一 7… ン パタ ー ン コー ド cd(0 一 255) 
垂直 反転 を 指定 する と 、 実 際 に 定義 きれ た パタ ー ン が 上 下 反 転 し て 表示 され ます 。 ま 
た 、 水 平 反 転 を 指定 する と 、 実 際 に 定義 8 され た ノ / パ ターン が 左右 反転 し て 表示 され ます 。 
パレ ッ ト ブ ロッ ク pb は 各 パ ター ン に 対し て 指定 する パレ ッ ト で 、 詳細 に つい て は 、 sp 
_color 関 数 を 参照 し て くだ さい 。 
テキ スト ペー ジ 1 し か 使用 し な い 場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ パタ ー ン の 
場合 0 か ら 191 ま で の 値 を と る こと が で きま す 。 テ キス トペ ー ジ 0、1 と も 使用 する 場 
合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 127 ま で の 値 を と る こと 
が で きま す 。 テ キス トペ ー ジ 0、1 と も 使用 し な い (バッ ク グ ラウ ンド を 使用 し な い ) 
場合 の パタ ー ン コー ド cd は 16X16 ド ッ ト パ ター ン の 場合 0 か ら 255 ま で の 値 を と る こ 
と が で きま す 。 
優先 度 pr は 、 指 定 する 値 に よっ て スプ ライ ト と バッ ク グ ラウ ンド 0、1 の 表示 優先 順位 
を 次 の よう に 設定 し ます 。 

es スプ ライ ト は 表示 され な い 

lu ペッツ グラ ウジ シド 0 テバ パッ ク グ クラ ウシ ドコ テス プラ イド 

IO9as ph パック ググ ラウ ンド 0 テラ スプ テラ イト テバ ペッ ク グ ラウ ンド 1 ユ 

3…… スプ ライ ト > バ ッ ク グ ラウ ンド 0> ラ バッ ク グ ラウ ンド 1 
な お 、 こ こ で は 左側 に ある ほど 重なっ た と き の 表 示 は 優先 され る こと を 意味 し て いま す 。 

2 Sp stat 
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+ 


sp stat(s, md) 

char 

int 

指定 され た スプ ライ ト の 状態 を 読み 出し ます 。 


7965: プレ ー ン (0 一 127) 
旨 ee ee 一 ま (0-3 

モー ド md に は 読み 出す 内 容 を 指定 し ます 。 
0 =X 座 標 (0 一 1023) 
1 =Y 座 標 (0 一 1023) 
2 ニ パ ター ン デ ー タ pd(0 一 &HCFFF) 
3 三 優先 度 pr (0 一 3) 


SPRITE 


モー ド md で 2 や 3 を 指定 し た と き に 読み 出さ れ た 内 容 (パタ ー ン デー タ pd や 優先 度 


pr な ど ) の 詳細 に つい て は 、sp set 関数 を 参照 し て くだ さい 。 


SD_set 
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SQR 標準 関数 


Sqr (n) 


float 
戻り 値 float 


数 値 n の 平方 根 (( レ ー ト ) を 返し ます 。n= 0 で な けれ ば な り ま せん 。 


19 /* sqr sample 
29 float 0 

3 の 9 af=5.3# 

49 bf=3999.455# 

59 print sqr(af ) 

69 print sqr(bFf ) 

79 end 


SRAND 準 関数 


srandj) 
int 
void 
機 能 rand( ) 関数 の 乱数 系 列 を 初期 化し ます 。 


rr…… 乱 数 の シー ド ( 0 ミ i<<65535) 


rand、randomize、rnd 


っ 
19 /#* srand sample 
| 
26 1nt Btnbt 


39 for ai= の to 2 


49 srand(ai ) 

59 for bi= の to 19 
69 print rand( ) 
79 next 

89 next 

99 end 
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STICK STICK 


stickG) 
引 数 int 
機 能 | ジョ イス ティ ッ ク j の 状態 を 調べ ます 。 


の ie 1 デニ ジョ イス デ ティック 1 
2 三 ジ ョ イス ディ イッ メグ 2 
戻り 値 は 次 の よう に な り ま す 。 


1 の /* stiok sample 
29 int ai,bi 


39 cl1s 

4 の while bi< く >1 

509 ai=stiok(1) 

69 1ocate 19,11 

7 の switoh a1 

89 case 1:print "1eft baok ( 左 後 ) =":a1i:break 

909 case 2:print "back ( 後 ) ="jai:break 

199 case 3:print "right back ( 右 後 ) ="jai:break 

116 の case 4:print "1eft( 左 ) ="jai:break 

129 case 6:print "right( 右 ) =":ai:break 

139 case 7:print "1eft forward (左前 ) ="jai:break 

149 case 8:print "forward ( 前 ) ="ja1:break 

150 case 9:print "right forward (右前 ) =":ai:break 

166 default:loocate 19,19:prin も t "ジョ イス ティ ッ ク を 動か し て く だ さ ww" 
179 1ocate 19,11:print 『" り 
180 endswitoh 

199 endnvhile 

299 end 
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交 之 ンジ 


3.j り DP 


ステ d よ ジン ド 


StoD 


プロ グラ ム の 実行 を 停止 し ます 。 


プロ グラ ム の 実行 を 停止 し て 、 直 接 命令 が 入力 で きる 状態 に し ます 。stop 命 令 は プロ 


グラ ム 内 の どこ に お いて も か まい ませ ん 。 


プロ グラ ム を 再開 する に は cont 命 令 を 実行 し ます 。 


2 cont 


19 
用 例 | 19 


STR 


/* stop sample 


print 
Print 
stop 
print 
Print 
stop 
Print 
end 


"persona1 " 
"ORBME Gomtt 7 5 テ 


"workstation 『" 
" 湯 DB 7 oon!" 


"X68999ACE" 


ンド ーー リド ンド 


藻 | | 
悪 | | 光 


str < 変数 名 >〔[ く < 文字 バッ ファ の サイ ズ >]〕〔 ニ < 文字 定数 式 > 〔, . . . 〕 
変数 を 文字 (str) 型 と し て 定 言 し ます 。 同 時 に 文字 列 を 代入 する こと も で きま す 。 ま 


だ た 、 く < 文字 バッ ファ の サイ ズ > を 1 一 255 の 範囲 で 設定 で きま す 。 < 文字 バッ ファ の サイ 
ズ > を 指定 し な い 場 合 は 32 文 字 と 見 な され ます 。str 型 変数 お よび 定数 は 、 常 に キャ ラ 
クタ コー ド が 0 で 終わ っ て いま す 。 
原則 と し て 、 変 数 宣言 は メイ ンプ ログ ラム の 先頭 で 行っ て くだ さい 。 ま た 、 同 名 前 
の 変数 を メイ ンプ ログ ラム 中 で 再 宣言 する こと は で きま せん 。 


2 char、float、int 


用 例 


19 /* str sample 
2 の str as="personal1 workstation 


39 str bs="super persona] workstation 


X68999ACE" 


X68999ACE-HD" 


49 str os[255]="super personal1 workstation X68999 "+ "super personal works 
tation X68999ACE "+ "super persona] workstation X68999ACE-HD 
59 str ds="SHARP",es=" 株 式 会 社 " 


print as 
print bs 
で CS= ニ CS+GS 
print os 
print ds 
end 


GS 
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str$ (n) 
float 
Str 


浮動 小数 値 n を 文字 列 に 変換 し て 返し ます 。 


Val 


19 /* str$ sample 

29 float af,bf,cFf 

39 str as,bs,os[ 49] 
49 af=3999999090999# 
59 bf=2.51235E+200# 
69 of=-2.3541786563E-300# 
79 as=str$(af ) 

89 bs=str$( DF ) 

90 cs=str$(of ) 

199 print as+bs+os 
119 print bs+os+as 
12 の print os+as+bs 
139 end 


STRCHR 標準 関数 


strchr (st, ch) 
str (st) , char (ch) 
int 


文字 列 st の 中 で 最初 に キャ ラク タコ ー ド ch の 文字 を 見 つけ た 位置 を 返し ます 。 位置 は 
文字 列 st の 先頭 が 0 に な り ま す 。 見 つか ら な か っ た 場合 は 、 一 1 を 返し ます 。 
キャ ラク タコ ー ド ch は 、 0 か ら 255 の 値 を と り ま す 。 


1 の /* strohr sample 

29 char ao 

3 の 9 str as 

49 as="persona1] workstation X68999ACE" 
59 ac=asc("w" ) 

69 print strohr(as,ao ) 

7 の 9 end 
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STRCSPN 標準 関数 


| 書式 | strcspn (st1 , st2) 


str 
戻り 値 int 


機 能 文字 列 st2 の 中 の どれ か 1 文字 を 文字 列 st1 の 中 で 最初 に 見 つけ た 位置 を 返し ます 。 位 

置 は 文字 列 st1 の 先頭 が 0 に な り ます 。 見 つか ら な か っ た 場合 は 、 文 字 列 st1 の 長 さ を 返 
ま 5 
文字 列 st2 が null 文 字 の 場合 も 、 文 字 列 st1 の 長き を 返し ます 。 ま た 文字 列 st1 が null 文 
字 の 場合 は 0 を 返し ます 。 
19 /* st 上 

2 の an eo 
39 as="persona] workstation X68999ACE" 
49 bs="zk4q" 


59 print strospn(as,bs ) 
69 end 
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STRIG STick 


| 書式 | 


式 strig(j) 


直 int 
能 ジョ イス ティ ッ ク j の トリガー ボタ ン の 状態 を 調べ ます 。 


] (8 (8A51 あ の ジグ ダ ョ イス ディ ッ グ 1 
ジョン イス イッ ジグ の 
戻り 値 は 次 の よう に な り ま す 。 


] ニ 1 の と き の トリ ガーA、B と も 押さ れ て いな い 
(ジョ イス ティ ッ ク 1) 1…… ト リガ ーA の み 押さ れ て いる 
の ee トリ ガーB の み 押 され て いる 
eens トリ ガーA、B と も 押さ れ て いる 


j 三 2 の と き 0…… トリ ガーA、B と も 押さ れ て いな い 
2 イス ディ ッ グ 導 ) oe トリ ガーA の み 押 され て いる 
の esse トリ ガーB の み 押 きれ て いる 
ec トリ ガーA、B と も 押さ れ て いる 


用 例 


い 『! 
89 

Cont ュ 
909 

Cont ュ 
199 
119 
120 


/* strig sample 
int ai 


1ocate 19,109 


a1=Strig( 1 ) 

if ai= の or ai>4 then prin も t "ジョ イス ティ ッ ク 1 の トリ ガー を 押し て くだ 
"iContinue 

1f ai=1 then print "ジョ イス ティ ッ ク 1 の トリ ガー ム A が 押さ れ ま し た 
nUe 

if ai=2 then print "ジョ イス ティ ッ ク 1 の トリ ガーB が 押さ れ ま し た 
nue 

if ai=3 then prin も t "ジョ イス ティ ッ ク 1 の トリ ガー ム A、B が 押さ れ ま し た " 
endwhile 
end 
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STRING$ 標準 関数 


string$ (i, st) 


int ) , str (st) 


Str 


文字 列 st の 先頭 1 文字 ご け で で きた 、 長 さ i 文 字 の 文字 列 を 返し ます 。 長 さ i は 1 か ら 
255 の 値 を 取り 、 0 また は 負 の 場合 に は null 文 字 を 返し ます 。 


1 
39 as=string$(255,"\") 
49 print as 
59 end 
STRLEN(LEN) 0 
strlen (st) 
len (st) 
引 数 str 


文字 列 st の 長き (0 一 255) を 返し ます 。 文字 列 st が null 文 字 の 場合 は 0 を 返し ます 。 


/* strlen (1en) sample 

Str as 

as="persona1 workstation X68999ACE" 
print str1len(as ) 

print len(as) 

end 
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STRLWR 標準 関数 


strlwr (st) 
str 型 変数 名 
戻り 値 Str 


str 型 変数 st の 中 の 英 大 文字 を すべ て 英 小文字 に 変換 し ます 。 


19 /* str]wr sample 
2 str as 
39 as="PERsona1 workSTATTON X68999ACE" 
49 str]1wr(as ) 
59 print as 
69 end 


STRNSET 本 


書 式 strnset (st, ch, i) 
str 弄 変数 名 (st) , char(ch) , int⑪) 
機 能 str 型 変数 st の 先頭 か ら 文 字数 れ 分 を キャ ラク タコ ー ド ch の 文字 に 変換 し ます 。 


キャ ラク タコ ー ド ch は 、0 か ら 255 の 値 を と り ま す 。 文字 数 i が 0 また は 負 の と き は str 
型 変数 st の 内 容 は 変わ り ませ ん 。 


19 /* strnset sample 
20 NG 8 


39 str as 

46 as= "personal1 workstation X68999ACE" 
59 aco=aso("\") 

69 strnset(as,ac,8) 

79 print as 

89 end 
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STRRCHR 標準 関数 


strrchr (st, ch) 
str (st) , char (ch) 


戻り 値 int 


文字 列 st の 中 で キャ ラク タコ ー ド ch の 文字 が 最後 に 見 つか っ た 位置 を 返し ます 。 位 置 
は 文字 列 st の 先頭 が 0 に な り ま す 。 先 頭 で し か 見 つか ら な か っ た 場合 は 0 、 ま っ た く 見 
つか ら な か っ た 場合 は 一 1 を 返し ます 。 キャ ラク タコ ー ド ch は 、 0 か ら 255 の 値 を 取り 
ます 。 


19 /* strrohr sample 
用 例 1 
29 char ao 


3 の str as 

40 as="persona1 workstation X68999ACE" 
59 ac=asc("o") 

69 print strrohr(as,ao ) 


STRREV 要 準 数 


strrev (st) 

str 型 変数 名 

sr 

str 型 変数 st の 並び を 逆転 し ます 。 
30 


39 as="personal workstation X68999ACE" 
4 の 9 strrey(as ) 

59 print as 

69 end 
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STRSET 標準 関数 


Strset (st, Ch) 


str 型 変数 名 (st) , char (ch) 


測 | | | 境 
會 | | 尊 | | 史 


Str 


工 
qE 
C で 


str 型 変数 st の すべ て の 文字 を 、 キ ャ ラク タコ ー ド ch の 文字 に 変換 し ます 。 
キャ ラク タコ ー ド ch は 、 0 か ら 255 の 値 を と り ま す 。 


/# strset sample 

char ac 

3 の str as 

49 as="persona1l workstation X68999ACE" 
59 ac=asoc( "\") 

69 strset(as,ao ) 

7 の print as 

89 end 


ト O リー 
S ぐ ざ 


用 例 


STRSPN 標準 関数 


strspn (st1 , st2) 
str 
int 


機 能 文字 列 st2 に 属さ な い 文 字 を 文字 列 st1 の 中 で 最初 に 見 つけ た 位置 を 返し ます 。 位 置 は 
文字 列 st1 の 先頭 が 0 に な り ます 。 見 つか ら な か っ た 場合 は 、 文 字 列 st1 の 長き を 返し ま 
す 。 ま た 、 文 字 列 st1I あ る い は st2 が null 文 字 の 場合 は 0 を 返し ます 。 
0342 
39 as="personal] workstation X68999ACE" 
49 bs="persona1 wktin68999" 


59 print strspn(as,bs ) 
69 end 
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用 例 


strtok (st1 , st2) 


Str 


str 


文字 列 st2 に 含ま れる 文字 (どれ か 1 文字 ) を 文字 列 st1 の 中 か ら 探 し 、 見 つか れ ば 先頭 


か ら そ の 位置 まで の 文字 列 を 返し ます 。 


最初 の strtok 関 数 の 実行 の 場合 は 、 文 字 列 st1 の 先頭 に 文字 列 st2 に 含ま れる 文字 が あ 
っ て も 無視 し ます 。 続い て 、 文字 列 st1 を null 文 字 に し て strtok 関 数 を 実行 する と 次 に 
文字 列 st2 に 含ま れる 文字 が 見 つか っ た と ころ まで の 文字 列 を 返し ます 。 文字 列 st2 に 
含ま れる 文字 が 見 つか ら な く な る と 、null 文 字 を 返し ます 。 文字 列 st2 が 、nnull 文 字 の 


場合 は 、 文 字 列 st1 を その まま 返し ます 。 


19 /* strtok samp1e 
2 の 9 str as[59],bs,cs 


39 as="super persona] workstation X68999ACE" 


4 の bs="zqx 123" 


59 print 
69 print 
7 の print 
8 の print 
99 print 
199 end 


strupr (st) 


str 型 変数 名 


Str 


str 型 変数 st の 英 小文字 を すべ て 英 大 文字 に 変換 し ます 。 


strtok(as,bs ) 
strtok(os, bs ) 
strtok(os,bs ) 
strtok(os,bs ) 
strtok(os,bs ) 


19 /* strupr sample 


29 str as 
39 as="PERsona1 workSTATION X68999ace" 


49 strupr(as ) 
59 print as 


69 end 


SWITCH<CASE<DEFAULT<ENDSWITCH ステ ー ト メン ト 


書 式 switch < 式 0> 
case < 式 1>:< 文 1> 
case < 式 2>:< 文 2> 


case < 式 n> : < 文 n> 
[default : < 文 d2) 
endswitch 
機 能 < 式 0 > と 同じ 値 を も つ case の < 式 n> の 後 の く < 文 n> を 実行 し ます 。< 式 0 > と 同じ 値 を も 
つ case の < 式 ny が な く て default が ある 場合 は 、< 文 d を 実行 し て か ら 、endswitch 以 
後 の 命 令 文 に 進み ます 。default が な けれ ば endswitch 以 後 の 命 令 文 に 進み ます 。 
case の < 式 n> の 中 に は 、 整 数 及び 文字 定数 の み 入り ます 。 


19 /* switoch case defau]t endsvwitoch sample 

2 の int ai 

3 の str as 

49 cls 

5 の input "あな た の 血液 型 を 入力 し て くだ さい ( AB 型 =?ab) , A 型 =?a) 。B 型 =?b) ,。 O 


型 =)o) )--->"jaS 


69 print 

7 の 9 switoh as 

89 case "ab":print "あな た の 血 太 型 は AB 型 で す ":break 
99 case "a":prin も t "あな た の 血液 型 は A 型 で す ":break 
199 case "b":prin も t "あな た の 血液 型 は B 型 で す ":break 
119 case "o":print を ヤオ イー キト を : break 
129 GefaultEiprint "7 の の 7 字 リ 

139 endswitoh 

149 prjint 


150 inpot "あな た の 生ま れ た 年 代 を 入力 し て くだ さい ( 明治 = の , 大 正 =1 , 昭和 =2 )- 


ーー> "581 


16 の 9 print 

179 switoch ai 

189 case の :print "あな た は 明治 生ま れ で す ":break 
199 case 1:prin も t "あな た は 大 正 生 まれ で す ":break 
29 の case 2:print "あな た は 昭和 生ま れ で す ":break 
219 避 @ 光 NESDR 潤 mt も この の の で 人 の" 

229 endswitoh 

239 end 
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GRAPH 


symbo1l(x, y, st, h, v, mo, p, an) 
int(x, y, p) , str (st) , char(h, Y, mo, an) 
Void 


グラ フィ ッ ク 画 面 上 に 文字 列 を 表示 し ます 。 


上 隊 reiea 始点 X 座 禁 
we 始点 Y 座 禁 
に に 文字 列 (文字 式 ) 
cao 横 方 向 の 倍率 (1 一 255) 
wizrftthi 縦 方 向 の 倍率 (1 一 255) 
as 束 文字 フォ ント の 種類 
(半角 ) (全角 ) 

22 6 X12、12X12 

iso 8 X16、16X16 

の VC 12X24、24X24 
De ン パ レッ トコ ー ド ( 色 ) 
前 や Yomeze 回 転 角度 (0 一 3、、 た だ し 90 度 単位 ) 


x、y は 、 一 32768 か ら 32767 ま で の 値 を 取る こと が で きま す 。 ク リッ ピン グ エ リ ア に つ 
いて は window 関 数 で 指定 され た 範囲 に な り ま す 。 ま た パレ ッ ト コ ー ド p は 0 か ら 
65535 ま で の 値 を 取る こと が で き 、 そ の 最大 値 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 
び 色 モー ド に より ます 。 


19 /* symbo1] sample 
20 int ai,bi ,oi ,di 
39 char ao 

49 float af 

59 screen 1,3,1,1 
69 vpage(1 ) 

79 randomize(15990 ) 
89 for ai=1 to 19 


9 8aC=ai 

199 Symbo1(256,256, "ACE",ac,ao,2,rnd( )*65535,ac mod 4) 
119 next 

129 for ai= の to 509099:nex も 

139 wipe( ) 

149 for ai= の to 3 

159 8 で =8 ュ 

169 for bi=90 to 429 

170 af=2*pi ( )*bi/331 

189 ci=sin(af)*169 

199 di=cos(af)*169 

290 Symbo1(bi,256-oi, "ACE",1,1,2,rnd( )*65535,ac) 
210 Symbo1(bi,256-di, "ACE",2,2,2,rnd( )*65535,ac ) 
229 next 

239 vipe( ) 
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249 
250 
2609 
270 
280 
290 
399 


SV 


next 

まず @Y な は = は 1 も 6 15 
aa で C=81 
Symbo1(159-ai*19,159-ai*19, "ACE",ac,ac,2,rnd( )*65535,9) 
for bi=9 to 4099:nex も 

next 

end 


機 能 親 プ ロ セ ス に 制御 を 戻し ます 。 プ ログ ラム 中 で は 使用 で きま せん 。 プ ログ ラム 中 で 使 
用 する 場合 は 、exit( ) 命令 を 使用 し て くだ さい 。 


tan(n) 
float 
| 戻り 値 | 


戻り 値 float 


機 能 数 値 n( ラ ジア ン ) の 正 接 (タン ジェ ント ) を 返し ます 。 


/* tan sample 
int ai,Dbi,Ci,d1i,e1=1 
float af 
Screen 1,.3,1,1 
vpage(1) 
1ine( の 9,255,511.255,.65535,&HFFEFF ) 
だ O 民 名 ま ミ 1 も O 3 
for bi= の も to 5S11 
af=(2*pi( ) *bi ) /512*ai 
1f af>=e1*pi( )/2 then ei=e1+2:oontinue 
ci=255-tan(af)*100 
di=rnd( )*65535 
pset(bi ,ci,d ) 
next 
ei=1 
next 
end 
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time$ 
Str 
str 


現在 の 時 刻 を 文字 列 と し て 返し ます 。 代 入 す る こと に よっ て 時 刻 を 設定 で きま す 。 


1 の 9 /* time$ sample 
29 str as,bs 

39 as=time$ 

49 print as 

59 bs=as 

69 time$=bs 

7 の print time$ 

89 end 


TOASCI AL 


用 例 


toascii (ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が 非 ASCII 文 字 (&H80 一 &HFF) で あれ ば ASCI 文 字 
(を H00 一 H7F) に 変換 し て 返し ます 。 

キャ ラク タコ ー ド ch に は 0 か ら 255 の 値 が 入り 、 戻 り 値 も その 範囲 の キャ ラク タコ ー 
ド を 返し ます 。 非 ASCII 文 字 以 外 の 場合 は その まま の キャ ラク タコ ー ド を 返し ます 。 


1 の /* toasoii samp1le 
2 の 0 char ao,bo,oo 


39 ao='a? /* &b91199991 */ 

4 の 9 bo= "マリ /* &b11991111 */ 

59 co=&B1110909111 

69 print ohr$(toasoii(ac) )j"= の ":jbin$(toasoii(ao) ) 
79 print ohr$(toasoii (bo) ) : "= の 9": bin$(toasoii ( bo ) ) 
89 print chr$(toasoii(occ) )j"= の 9":jbin$(toasoii(oo) ) 
99 end 
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TOLOWER 標準 関数 


tolower(ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が 英 大 文字 ((Aー' の の) で あれ は ば は 英 小文字 Ca" 一 2) に 変換 
じ で 返し まあ 。 

キャ ラク タコ ー ド ch に は 0 か ら 255 の 値 が 入り 、 戻 り 値 も その 男 囲 の キャ ラク タコ ー 
ド を 返し ます 。 英 大 文字 以外 の 場合 は そ を の まま の キャ ラク タコ ー ド を 返し ます 。 


19 /* tolower sample 

29 char ao,bo,co 

39 ao='a" 

4 の 9 bo='A7 

59 oo=?5? 

69 print chr$(tolower(aoc) ) 
7 の print chr$(to]ower( bc ) ) 
8 の print chr$(tolower(ococ) ) 
99 end 


TOUPPER 間 


toupper (ch) 
char 
int 


キャ ラク タコ ー ド ch の 文字 が 英 小文字 (a" 一 '2) で あれ は ば 英 大 文字 (A"ー グ ) に 変換 
し て 所 し ます 。 

キャ ラク タコ ー ド ch に は 0 か ら 255 の 値 が 入り 、 戻 り 値 も その 男 囲 の キャ ラク タコ ー 
ド を 返し ます 。 英 小文字 以外 の 場合 は その まま の キャ ラク タコ ー ド を 返し ます 。 


19 /* toupper sample 

29 char ao,bo,cc 

39 ac='a? 

49 bo='Ay 

59 co='?5!* 

69 print ohr$(toupper( ao ) ) 
79 print chr$(toupper( bc ) ) 
89 print ohr$(toupper( Go ) ) 
99 end 
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Val (st) 
Str 
float 


文字 列 st を 浮動 小数 値 に 変換 し て 返し ます 。 
を B、&H、&0O 形 式 の 整数 値 を 表現 し た 文字 列 も 変換 で きま す 。 


str $ 


19 /* va] sample 

29 float af,bf,oF 

39 str as,bs,os[ 49] 

4 の as="3999999999999" 

59 bs="-2.51235e-2" 

69 cs=" の .5102123542131543512312313453543543513213" 
7 の 9 afF=va] (as ) 

8 の bfF=yva1 (bs ) 

99 of=va1 (cs ) 


199 print " ("TaS+") ま ( リ +ba+") ネ ("TCS+") = iaf*bf* ネ of 
119 print ("Tas+")/("+bs+")/( "Tos+") =" リ iaf/bf/of 
129 print "("+as+")+("+bs+ リ ) キ (リキ TCS すり) = リ "iaf+bF+oF 
13 の print "("+as+")-("+bs+")-("+os+")= リ iaf-bF-oFf 
149 end 
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VPAGE 


GRAPH 


vpage(i) 
char 
void 


各 グ ラフ ィ ッ ク ペ ー ジ の 表示 ON/OFF を 指定 し ます 。 グ ラフ ィ ッ ク ペ ー ジ 番号 は 0 
ー 3 で 最大 値 は グラフィック 画面 の 実 画面 サイ ズ 及 び 色 モー ド に より ます 。 


グラ フィ ッ ク 画 面 の 実 画面 サイ ズ 及 び 色 モー ド に よる ij の 値 の 範囲 


1 …… 表示 ON 
0 PC 表示 OFF 
1024X1024(16 色 モー ド )……… 0 、1 (グラ フィ ッ ク ペ ー ジ 0 の み ) 
512X512(16 色 モー ド )…………0 か ら 15 
1 デフ ア ォ ッ クズ グラ アプ ィ ッ ク の グ ジ シブ マッ アグ 
ペー ジ 3 2 ニニ ジ ク ペー ジュ 1 2 ページ 0 
0 0 0 0 0 
1 0 0 0) 1 
2 0 0 1 0 
3 0 0 1 1 
4 0 1 0 0 
5 0 1 0 1 
6 0 1 1 0 
7 0 1 1 1 
8 I 0 0 0 
9 1 0 0 1 
10 1 0 1 0 
11 中 0 1 | 
12 1 1 0 0 
13 1 1 0 1 
14 由 1 ・0 
15 I 1 1 1 
512X512 (256 色 モー ド )…… 0 か ら 3 
1 グラ アイ ザ グ グラ フィック 
SS ペー ジ 0 
0 0 0 
1 0 1) 
み 1 0 
3 1 1 


512X512(65536 色 モー ド )……・ 0、 1 (グラ フィ ッ ク ペ ー ジ 0 のみ) 
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2 apage、home、 screen、 window 


用 例 19 /* vpage Sample 
29 int ai ,bi ,oi 
39 float af 
49 screen 1,1,1,1 
59 vpage(9) 
69 windoc( の 9 の, の 9,511,511 ) 
79 apage(9 ) 
89 kyu(499,9) 
99 apage(1 ) 
199 kyu(329,19) 
119 apage( 2 ) 
129 kyu(249,20) 
139 apage(3) 
149 kyu(169,39) 
159 while -1 
169 for ai= の to 511 


179 af=pi( )*ai/512*2 

1809 bi=abs(sin(pi( ) /2-af ) *400 ) 

190 if bi= の then { 

2009 vpage(&B10) :pause( ) 
219 vpage(&B100) :pause( ) 
220 vpage(&B10909) :pause( ) 
230 vpage(&B1090) :pause( ) 
2409 vpage(&B19) :pause( ) 
2509 } 

2609 home( の, の 9,bi ) : home( 1 , の,bi ) 

270 home(2,9,bi ) : home(3,9,bi ) 

280 Vpage(&B1 ) 

299 next 

399 endwhi1e 

319 end 


329 funo kyu(ai,bi ) 

339 circle(256,461+bi,59,5,9,360,ai ) 
349 paint(256,461+bi , 5 ) 

359 endfuno 

3609 func pause( ) 

379 for oi= の to 250 

389 next 

399 endfunoc 


寺 IMAGE 
書 式 Y_cut(sw) 
引 数 char 
Void 
スー パー イン ポー ズ 時 の テレ ビ ・ ビ デオ 画面 表示 を 制御 し ます 。 
sen 制御 スイ ッ チ (0 ニテ レビ ・ ビ デオ 画面 表示 ON、 1 ニテ レビ ・ ビ デ 


オ 画 面 表 示 OFF) 


な お 、 こ の 関数 を 実行 する に は カラ ー イ メー ジュ ニッ ト CZ-6VT1 が 必要 で す 。 
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WHILECENDWHILE ステ ー ト メン ト 


書 式 


while < 式 > 

く レ ー プ の 内 容 > 

endwhile 

< 式 > の 値 が 偽 に な る まで 、 指 定 さ れ た レー ブ の 内 容 > を 繰り 返し (レー プ ) ます 。 
繰り 返し の 終了 判定 は ウソ レー プ の 内 容 > の 実行 前 に 行わ れ ま す 。< 式 > の 内 容 に よっ て 


WIDTH 


、 一 度 も ツレ ー プ の 内 容 > を 実行 し な い 場合 が あり ます 。 


/* while endehi]e sample 
int ai 
while ai<>3 

1nBW も "1+2 ニ "5a ミ 
endwhile 
DE も oe" 
end 


コジ ンジ 


width < 文字 数 > 


W. 


表示 文字 数 を 変更 し ます 。 く 文字 数 >? は 96 か 64 で す 。 

この 命令 を 実行 する と テキ スト 画面 、 グ ラフ ィ ッ ク 画 面 や スプ ライ ト 画 面 は 消去 され 
ます 。 また 、 console 0,31,1 が 再 設定 され ます 。 テキ スト 画面 の の パレット も デフ ォ ル 
ト の 値 に 再 設 定 さ れ ま す 。 
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WINDOW GRAPH 


書 式 window (x1,y1,x2.,y2) 


im 
wod 
グラ フィ ッ ク 画 面 の 実 画面 上 で クリ ッ ピ ング する エリ ア ( ク リッ ピン グ エ リ ア ) を 指 
滞 し ます 。 
1 ………… 実 画面 上 で の クリ ッ ピ ング エリ ア の 左上 X 座 標 
yl …… 実 画面 上 で の クリ ッ ピ ング エリ アグ の 左上 Y 座 標 
に 1 実 画面 上 で の クリ ッ ピ ング エリ ア の 右 下 X 座 標 
Y2 ……t…t 実 画面 上 で の クリ ッ ピ ング エリ ア の 右 下 Y 座 標 


x1、Y1、x2、y2 は グラ フィ ッ ク 画 面 の 実 画面 サイ ズ が 512X512 の 場合 は 0 か ら 511 ま 
で 、 実 画面 サイ ズ が 1024X1024 の 場合 は 0 か ら 1023 ま で の 値 を 取る こと が で きま す 。 
screen 命 令 を 実行 する と x1、 y1、 x2、 y2 に は その 表示 画面 サイ ズ の 大 き さ で 再 設定 さ 
れ ま す 。 た だ し 、 こ の 場合 (x1 ,y1) に は (0.,0) が 再 設定 され ます 。 


+ 


apage、 home、screen、 Vpage 


1 の /* nindov samp1e 

2 の int ai,bi。oi,di,e1,f 

3 の 9 screen 1,3,1,1 

4 の vpage(1) 

59 while -1 

69 nput "クリ ッ ビ ピング エ リア の 左上 双 護 標 (9 て 511) を 入力 し て くだ さい "jai 


80 input "クリ ッ ピ ング エリ ア の 左上 Y 座 標 (90 こ 511) を 入力 し て くだ さい "jibi 
19 の 9 input "クリ ッ ピ ング エリ ア の 右 下 又 座 標 (9 ご こ 511) を 入力 し て くだ さい "ioi 
12 の 0 input "クリ ッ ピ ング エリ ア の 右 下 Y 座 標 (9 こ 511) を 入力 し て くだ さい "idi 
4 の DP お 交 で グッ み 則 シグ エリ ア は ("ai"JWNDD "je rsdhs リ りか) で す / 

159 window(ai,bi ,oi ,di ) 


169 box(ai,bi,ci,d1i,65535,&HFFFF ) 
179 for ai=9 to 299 


189 bi=rand( ) mod 512 
1909 ci=rand( ) mod 512 
2090 di=rand( ) mod 512 
210 ei=rand( ) mod 512 
220 Fi=rnd( )*65535 
2309 fi11(bi,ci,di,ei,fi ) 
249 next 

259. wipe( ) 

269 cls 

279 endwhile 

289 end 
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GRAPH 


wipe( ) 
void 
グラ フィ ッ ク 画 面 の アク ティ ブ ペ ー ジ の クリ ッ ピ ング エリ ア 内 を 消去 し ます 。 


apage、windoWw 


19 /* wipe sample 

29 int ai,bi,oi 

39 screen 1,1,1,1 

4 の vpage(9 ) 

59 apage(9 の ) 

69 fi11(59,59,469,2609,9) 

79 kyu(209,9,9) 

89 apage(1) 

99 kyu(299,15,9) 

199 apage(2) 

119 kyu(159,11,9) 

129 symbo1(179,166, "SHARP",3,2,2,5,9) 
139 apage(3) 

149 kyu(199,13,9) 

159 symbo1(292,196,"X68999ACE",1,1.2,3,0) 
169 vpage(&B1111) 

179 for ai=1 to 3 

189 1ocate 13,29:print "グラ フィ ッ ク ペ ー ジ "jaiij" を ワイ プ し ます !!" 
199 for bi=9 to 199099 

2909 next 

210 apage(ai ) 

220 wipe( ) 

239 next 

249 apage(0) 

259 1ocate 13,20:prin も t "グラ フィ ッ ク ペ ー ジ 9 を ワイ プレ し ます!!" 
269 for bi=9 to 10999 

279 next 

289 wipe( ) 

299 end 

399 func kyu(ai,bi ,oi ) 

319 cirole(256,256,ai,bi,-19,-179,2090 ) 
329 paint(256,259,bi ) 

339 circle(256,256,39,oci,9,189,200 ) 
349 paint(256,259,oi ) 

359 endfunc 
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計 . hi 5 ト 
hwsr ee ne 、: P り | 


ヨン ジン ト 加 一 死 ヨー 浴 一 臣 


還 コ ント ロー ルコ ー ド 一 覧 


[CTRLH| ュー ド | 機 能 対応 キー 
@ 00 te 
A 01 イン サー トモ ー ド に する (トグル 動作 で ON/OFF する ) | INS 
B 02 現在 の ワー ド の 先頭 に カー ソル を 戻す 
紀 03 | 実行 を 停止 する BREAK 
D 04 イニ シャ ライ ズ す る 
E 05 現在 の カー ソル 以降 1 行 を 消す 
F 06 次 の ワー ド の 先頭 に カー ソル を 進め る 
G 07 | カー ソル 位置 の 文字 を 消す DEL 
H 08 | バッ クス ペー ス (カー ソル の 前 の 位置 の 文字 を 消す ) | BS | 
I 09 | 水平 TAB を 行う HTAB 
J 0A 現在 の カー ソル 以降 を 次 の 行 に 分 ける 
K 0B カー ソル を 画面 の ホー ム 位 置 に 移す HOME 
拉 0C | テキ スト 画面 を 消去 する CLR 
M 0OD | キャ リッ ジリ ター ン を する |、 
INI OE | 現在 の カー ソル か ら 上 を 上 方 向 に スク ロー ル す る [ROLL UP | 
O OF | 現在 の カー ソル か ら 下 を 下方 向 に スク ロー ル す る IROLL DOWNI 
P 10 | ダミー 
Q 11 実行 の 一 時 停止 を 解除 する 
R 12 ミー 
S 13 | 実行 を 一 時 停止 する 
紀 14 ミー 
U 15 ーー 
V 16 ミー 
W 17 | 現在 の カー ソル が ある 行 と 次 の 行 を つなぐ 
※※ 18 ミー 
失 19 ミー 
Z 1A 現在 の カー ソル より 下 の テ キス ト 画 面 を すべ て 消去 する 
[ 1B エス ケー プ ョ コード RS( し / 
共 1C | カー ソル を 右 へ 移動 する 還 | 
] 1D | カー ソル を 左 へ 移動 する 較 
2 1E カー ソル を 上 へ 移動 する 峰 
還 1F | カー ソル を 下 へ 移動 する は | 
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呈 キ ャ ラク ター コー ド 吾 


Q く マー ロー を 民 社 で つく マー 叫 
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予約 語 一 覧 


予約 語 は XX-BASIC が 管理 する キー ワー ド で 、 変数 名 や fanc 一 endfunc で 定義 する 関数 名 と し て 


田 予 約 語 一 覧 

は 使え ませ ん 。 

ABS DAYS 
APAGE DEFAULT 
ASC DELETE 
ATAN DIM 
ATOF DSKF 
ATOI ECVT 
AUTO ELSE 

A PLAY END 

A REC ENDFUNC 
BEEP ENDSWITCH 
BG_FILL ENDWHILE 
BG GET ERRNO 
BG_PUT ERROR 
BG SCROLL EXIT 
BG_ SET EXP 
BG_STAT FCLOSE 
BINS FCLOSEALL 
BOX FCVT 
BREAK FDELETE 
CASE FEOF 
CHAR FCETC 
CHDIR FILES 
CHDRV FILL 
CHR$ FIX 
CIRCLE FLOAT 
CLEAR FOPEN 
CLS FOR 
COLOR FPUTC 
CONSOLE FREAD 
CONT FREADS 
CONTINUE FREE 
CONTRAST FRENAME 
COS FSEEK 
CRT FUNC 
CSRLIN FWRITE 
DATE$ FWRITES 


GCVT 
GET 
GOSUB 
GOTO 
HEX$ 
HOME 
HSV 

IF 

IMG COLOR 
IMG HOME 


INPUT 
INSTR 
INT 
ISALNUM 
ISALPHA 
ISASCII 
ISCNTRL 
ISDIGIT 
ISGRAPH 
ISLOWER 
ISPRINT 
ISPUNCT 
ISSPACE 
ISUPPER 
ISXDIGIT 
ITOA 
KEY 


KILL 
LEFT$ 
LEN 
LFILES 
LINE 
LINPUT 
LIST 
LLIST 
LOAD 
LOCATE 
LOG 
LPRINT 
LSEARCH 
MID$ 
MIRROR$ 
MOUSE 
MSAREA 
MSBTN 
MSPOS 
MSSTAT 
M ALLOC 
M ASSIGN 
M CONT 
M FREE 
M INIT 
M PLAY 
M STAT 
M STOP 
M TEMPO 
M _TRK 
M _VGET 
M VSET 
NAME 
NEW 
NEXT 
OCT$ 
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OFF 
ON 
PAINT 
PALET 
PI 

POINT 
POS 

POW 
PRINT 
PSET 
PUT 
RAND 
RANDOMIZE 
RENUM 
REPEAT 
RETURN 
RGB 
RIGHT$ 
RND 
RUN 
SAVE 
SCREEN 
SEARCH 
SETMSPOS 
SGN 

SIN 
SPACE$ 
SP CLR 
SP COLOR 
SP DEF 
SP DISP 
SP INIT 
SP MOVE 
SP OFF 
SP ON 
SP PAT 


SP SET 
SP STAT 
SQR 
SRAND 
STICK 
STOP 
STR 
STR$ 
STRCHR 
STRCSPN 
STRIG 
STRING$ 
STRLEN 
STRLWR 
STRNSET 
STRRCHR 
STRREV 
STRSET 
STRSPN 
STRTOK 
STRUPR 
SWITCH 
SYMBOL 
SYSTEM 
TAN 
THEN 
TIME$ 
TOASCII 
TOLOWER 
TOUPPER 
UNTIL 
USING 
VAL 
VPAGE 
WP 
WHILE 


WIDTH 
WINDOW 
WIPE 
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FM 音源 の 音色 デー タ (レジスタ) 


弄 FM 音源 の 音色 デー タ ( レ ジス タ ) 


本 機 の FM 音源 に は 、YM2151 (OPM) を 使用 し て いま す 。 こ れ は 、 8 オク ター ブス テレ オ 出 力 が 
可能 な FM Generator を 8 チャ ン ネ ル 持 っ て お り 、 そ の 各 チ ャ ン ネ ル に 、 オ ペレ ー タ と し て モジ ュ レ 
ー タ 2 個 (M1, M2)、 キ ャ リア 2 個 (C1, C2) が 対応 し て いま す 。 し か も 、 こ の オペ レー タ の 組み 
合せ や 、 チ ャ ン ネ ル ご と の Phase Generator と オペ レー タ ご と の Envelope Generator の 設定 値 を 
変化 させ る こと に より 、 い ろ い ろ な 音 作り が 可能 に な っ て いま す 。 

また 、 こ の FM 音源 で は 、 低 周波 発振 器 (LFO) を も っ て お り 、 そ れ を 使用 する こと で ビブ ラー ト 
や トレ モロ 効果 が 生み 出せ ます 。 

(9. フィ ー ド バッ ク / ア ル ゴ リ デム 


@ デ アル ゴリ ズム 


各 チ ャ ン ネ ル ご と の 4 つの オペ レー タ の 組み 合せ を 設定 し ます 。 8 種類 の 組み 
合わ せ が あ り 、 そ れ ぞ れ で 変化 に 富ん だ 音色 作り が で きま す が 、 一般 に 、 キ ャ 


リア の 数 が 少な く 、 モ ジュ レー タ の 数 が 多い ほど 複雑 な 音色 変化 を 作れ ます 。 


フィ ー ド バッ ク アル ゴリ ズム 


M2 OUT 


CI 
人 
LM | 

遇 "で 思 ゴ ー 9 
| 
本 
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資料 編 


@ フ ィ ー ド バッ ク …… 各 チ ャ ン ネ ル ご と の 最初 の オペ レー タ の 出力 を その オペ レー タ 自 身 に フィ ー 
ド バ ッ ク す る こと に より 、 ひ と つの オペ レー タ だ け で 変調 が 行わ れ ま す 。 数 
値 が 大 きく な る ほど 、 大 きく 変調 され 、 高 周波 成分 が 増え 、 音 色 が 大 きく 変 


わり ます 。 
000… OFF 
0.01… ァ /16 
0 1.0… ァ /8 
oo ヶ /4 
10 0… ァ /2 
1 0 1 PCOCCCD 2 
識 動 |) ・ 2 ァ ヶ 
本 時 | RPCCD 4 ヶ 


(2) スロ ッ ト マ スク …… 各 チャ ン ネ ル ご と の 各 オ ペレ ー タ の キー オン (出力 され ます ) オフ (出力 き 
れ ま せん ) を 設定 し ます 。 


bit3 2 I 0 


Ce( キ ャ リア の 1 | 

M2( モ ジュ レー タ 2) 
CI( キ ャ リア リ ) JUN ボー 
MI( モ ジュ レー タ !) 
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(3⑬) 


FM 音源 の 音色 デー タ (レジ スタ ) 


エニー グン オーム 末 nczoo LFO か ら 発生 され る 波形 を 設定 し ます 。 波形 の 違い に より 、 音量 や 音色 
の 変化 の し か た が 変わ り ま す 。 


ウェ エー ププ ォ ー ム 周波 数 変調 (音程 ) 


十 


g 明 抽 
ーーw-。 ーー ーー で ーー ーーー 


| 


| 


| 


ーー 


十 
3 NOISE 
0 


ンジ ンジ の ロ え Sscn2 LFO の スタ ー ト と キー オン ( 音 が 発生 され る 瞬間 ) を シン クロ させ ます 。 シ ンク 
ロ 状 態 に する と 音 が 発生 きれ る た びに ビ プ ラート や トレ モロ 効果 な ど が 波形 の 先 
頭 か ら か か り ま す 。 


0…… シ ンク ロロ 解除 
1…… シ ンク ロロ 状態 


| LFO の 発振 周波 数 (ビブ プラ ー ト や トレ モロ 効果 の 速 さき ) を 設定 し ます 。 数 値 が 大 
きく な る は ほど 、 周 波数 が 高く な り 、 ス ピー ド が 速く な り ま す 。 
0 一 255 ( 約 0.009-59Hz に 対応 ) 


PMD (Pitch Modulation Depth) * 
8093 周波 数 変調 (音程 ) に 対し て か ける LFO の 出力 レベ ル を 設定 し ます 。 数 値 が 大 きく な る ほ 
ど 、 深 く か か り ま す 。 
0 一 127 ( 出 カ レベ ル 小 出力 レベ ル 大 ) 


AMD (Amplitude Modulation Depth) * 
52 振幅 変調 (音量 ) に 対し て か ける LFO の 出力 レベ ル を 設定 し ます 。 数 値 が 大 きく な る ほ 
ど 、 深 く か か り ま す 。 
0 一 127 ( 出 カ レベ ル 小 つ 出 力 レベ ル 大 ) 
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(8) PMS (Pitch Moduiation Sensitivity)* 
CdO 各 チ ャ ン ネ ル ご と の 周波 数 変調 (音程 ) に 対し て か ける LFO の 感度 を 設定 し ます 。 数 値 が 
大 きく な る ほど 、 感 度 は 大 きく な り ま す 。 
0 一 7 (感度 小 一 感度 大 ) 


(9) AMS (Amplitude Modulation Sensitivity)* 
Oc 各 チ ャ ン ネ ル ご と の 振幅 変調 (音量 ) に 対し て か ける LFO の 感度 を 設定 し ます 。 数 値 が 大 
きく な る ほど 、 感 度 は 大 きく な り ま す 。 
0 一 3 (感度 小 一 感度 大 ) 


(⑩) LR PAN…… 各 チャ ン ネ ル ご と の 出力 方 式 を 設定 し ます 。 


0…… 出 力 禁止 
tcswr 誠 此 才 
2 wsx 直 遇 力 
3 …… ス テレ オ 出 力 


ーー LEFO (Low Frequency Oscillator) に 関す る デー タ 
な お 、 PMD が 0 に な っ て いる と 周波 数 変調 (音程 ) に 対し て の LFO は か か り ま せん し 、 AMD 
が 0 に な っ て いる と 振幅 変調 (音量 ) に 対し て の LFO は か か り ま せん 。 
な お 、LFO を 使用 する と 音色 が 変わ り ま す 。 


[オペ レー タ 単 位 ] … 以 降 の 説明 に お いて オペ レー タ 1 は M1、 オ ペレ ー タ 2 は C1、 オ ペレ ー タ 3 は 
M2、 オ ペレ ー タ 4 は C2 に 対応 し ます 。 


Key ON Key OFF 


AR DIR D2R RR 
(⑪) AR (Attack Rate) ** …… キー オン され だ あと 、 出 力 レ ベル が 最大 に な る まで の 速度 (減衰 量 


が 0db に な る まで の レー ト ) を 設定 し ます 。 数 値 が 大 きく な る ほど 音 
の 立ち 上 が り が 速く な り ま す 。 
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() D1R (First Decay Rate)** …… 出 カ レベ ル が 最大 に な っ て か ら 、D1L で 設定 し た レベ ル に 下 
が る まで の 速度 (減衰 量 が 0db か ら D1L に な る まで の レー ト ) 
を 設定 し ます 。 数値 が 大 きく な る ほど 、 音 の 減衰 速度 が 速く 
な り ま す 。 
0 一 31 


(⑱) D2R (Second Decay Rate)* …… D1L で 設定 し た レベ ル に な っ て か ら 、 キ ー オ フ さ れる まで 
の 速度 (減衰 量 が D1 し に な っ て か ら キ ー オ フ さ れる まで の 
レー ト ) を 設定 し ます 。 数値 が 大 きく な る ほど 、 音 の 減衰 
速度 が 速く な り ま す 。 

0 王 31 


(0 RR (Release Rate) **…… キー オフ され て か ら 音 が 消え る (最大 減衰 量 (96dbD) に な る ) まで の 
速度 を 設定 し ます 。 数 値 が 大 きく な る ほど 、 キ ー オ フ し て か ら の 音 
の 減衰 速度 が 速く な り ま す 。 
0 一 15 


⑪⑯⑮) D1L (First Decay Level) **…… D1R か ら D2R に 移る と ころ の 出力 レベ ル を 設定 し ます 。 数 値 
が 大 きく な る ほど 出力 レベ ル が 低く な り ま す 。 
人 20 減衰 量 0 db 8 …… 減 衰 量 24db 
gocso: 減衰 量 3 db 9 …… 減 衰 量 27db 
CO 減衰 量 6 db 10…… 減 衰 量 30db 
2 減衰 量 9 db 11……: 減 衰 量 33db 
人 yeavae 減衰 量 12db 12… 減 衰 量 36db 
5……: 減 衰 量 15db 13…… 減 衰 量 39db 
6…… 減 衰 量 18db 14…… 減 衰 量 42db 
7 …… 小 衰 量 21db 15…… 減 衰 量 93db 


⑯) TL (Total Leve)** …… 音色 及び 音量 を 制御 する た め の 各 オペ レー タ に お ける EG の トー タ 
ル 出 カレ ベル を 設定 し ます 。 キ ャ リア の 出力 レベ ル は 音量 を 変化 さ 
せ 、 モ ジュ レー タ の 出力 レベ ル は 音色 を 変化 させ ます 。 数 値 が 大 き 
く な る ほど 、 出 力 レ ベル は 小さ く な り ま す 。 
0 -127 ( 出 カ レベ ル 大 一 出 カ レベ ル 小 ) 


(9 KS (Key Scaling)** …… 音 の 高き (キー コー ド ) に よっ て 、 エ ン ベ ロ ー プ の 長 さ を 変化 させ 


ます 。 数 値 が 大 きく な る ほど 、 高 音域 で の エン ベロ ー ブ の 長 さ が 短 
く な り ま す (音色 が 鋭く な り ま す )。 
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Q⑱9 MUL (Phase Multiply) … 各 オペ レー タ の 周波 数 を 設定 し ます 。 設 定 値 は 、 鍵 盤 標準 ピッ チ 
に 対す る 周波 数 の 比 を 表わし ます (0 の 場合 は 1/2 の 周波 数 )。 
0 三 15 


(⑲⑳ DT1 (Detune 1) …… 各 オ ペレ ー タ の ピッ チ を 微妙 に ずら すこ と に より 、 音 の 波 の 千 渉 作用 を 
起こ し 、 音 に 広がり を 与え ます 。 数値 が 0 か 4 の と き 、 ピ ッ チ 変化 は 0 で 
す 。 数 値 が 1、2、3 の 場合 、 ピ ッ チ 変化 は 十 1、 十 2、 十 3 と な り 、 数 値 が 5、 
6、7 の 場合 、 ピ ッ チ 変化 は ー1、 一 2、 一 3 と な り ま す 。 
0-7 


0 DT2 (Detune 2) …… 各 オ ペレ ー タ の 周波 数 を 設定 し ます が 、 周 波数 比 を 非 整数 倍 に し た いと 
き に 設定 し ます 。 数 値 が が の と き 、MUL で 設定 され た 周波 数 を 1.00 倍 、 
1 の と き 1.41 倍 、2 の と き 1.57 倍 、3 の と き 1.73 倍 に 変え ます 。 
Ors3 


⑳0 AMS イ ネー ブル ……… 各 オ ペレ ー タ ご と に AMS の イネ ー プ ブル を 設定 し ます 。 
0 の ie AMS デ ィ セー プル 
1……… AMS イ ネー プ ブル (AMS 動 作 ) 


玉 ポー……… EG (Envelope Generator) に 関す る デー タ 
キャ リア の オペ レー タ の エン ベロ ー プ ・ ジ ェ ネ レー タ は 音量 の 時 間 的 変化 を 、 モ ジュ レ 
ー タ の オペ レー タ の エン ベロ ー プ '・ ジェネ レー タ は 音色 の 時 間 的 変化 を コン トロ ー ル し 
まう ゎ 
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一 機能 別 索 引 

ADPCM の 制御 (AUDIO. FNC) 

A PLAY 1 Ca1S 8 人) 人 (7: 人 YY 80) A _REC 3 むす. も: る 68766: る 6783 7 人 518( る 19297 いる 81 
コマ ンド 

0 に の の も TCP た CPP 79 LIST 156 
CHDIR………ー ド mr 91 LOAD ii 157 
CHDRV ee 91 NAM iii 173 
GETTEDee ジ の 92 NE ee 173 
CLEAR (ers ne 居 (819X^@ rt! あ 1 65): 94 RENUM Leiaatai (9: 抽 まな き 】 人 1 人 98 な 689 185 
CONT 0 Pe: CST! (18) 和 37! 891Pe 98 RUN 1 (8260628'a6: Ui5. や (3) 鐘 りさ YeKMai 5 188 
DELETE hh 103 SAVE…… ド ーー 188 
FILES oe 113 SEARCH or 190 
KEY 味 民 害 2*WAg (1 人 8( 語 1 所 [ (667 152 SYSTEM 誠人 Fo ie[0 和 9 項 1 拓く!gN8191et 215 
KB 貞 月 86821: 避 G8!B7C8「C 1 EAALS1 人 86:1g 本 152 WIDTH 2 人 (人 (19) 1 ああ NO7 く 916 8 1 221 
デー タ の 変換 

AS 76 13 0109 るい 旨 EGEEEEECCCEEEEEEEEEEEECCOUEECOCEHEEHEHPD 130 
ATOF aa AT16W@8 い (りり 6 (人 [88 夫人 6 年 !87 1 の INT 6 人 58 きる (9 いき 、 さ 9108)e1818P187 67 144 
ATOI お Si 大 7 が @ 66. 本 15)1@7@: あの "りあ の: 他人 ) 記 at の の 78 ITOA 人 の NOTEe(e12 な 8Ie16181」6: (0 いる > で 1(6」40878780 人 aa 151 
151N 全 EEEEEGGCGEOOECOUOOOOOEHHECEEEEPEEPPERCO 88 OCT 174 
80S: 全 EEEEEEEEEPLEUUUPOOEEEEPEPPTPEEEEEEEEEEED 92 ST ii 205 
ECV 丁 すこ C に PL た JO ん か 106 TOASCII 2 8!eSPaeU'e:5.6 い 0 め @70.6(80 18 (和泊 DOgnesigiga9(914. 和 2 216 
GMA 3 0860 BEG&ke77 由 洛 治 (86 の も きる 110) TOLOW ER 8 の (上 (6786* 還 本 寺 18168 taDigTe。 He) 7 
FIX に イー KT V 115 TOUPPER (5 和信) 人 mt 217 
GCVT 2 が 6 1 な 6 な 6 所 (*a 人 (78 | で! 16 ata) 127 VAL 2 の きい & aarBCs151m( き 88 く (9:7 の! 人 ): 和 7 218 
ファ イル 入出 力 

DSKF 3 9KaaNe 8! 0016" る 915 (すり: 所 き (8 語 60 ぁ 1 105 FPUTC 本 人 Cg 寺 &2 100 1163 ae BSDSt5% 和 の ) 660 b 118 
FCLOSE 内) いも か RT TL て EK ルム っ 109 FREAD 誠人 5!121W/P8L1mXa(5De282eke 基 いま 82 人 jr) の 119 
FCLOSEALL ai し) 人 な ある) 110 FREADS 2 人 16116.882 928:87N1B182W78W1021( あ 人 中 
FDELETE STSS3 誠 7829iCet7 が に (な 5 0 の 13019 111 FRENAME 二 19S 当 Nie 57 和 (GVW、 PUB1@YS2058:82 演 92880 1]22 
FEOF 7 いた サイ ベト 3 か 引 国 | FSEEK の 6eTB1Ye ば (iT. が YE Ve 0 ! な | な 97 [17 123 
RGEL(/ 75161B213 06 58 人 6 者! 95181168r1/ 人 62) 胃 妥 FWRITE 15 い at 98067: 人 5 (人 (65 9) (な 125 
FOPEN 91 41e'@@:W 7 の: ま 8!66127 22: 116 FWRITES に ea 287 すき 01 78087 大 PSN ち "862 う 9 (1 126 
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資料 編 


グラ フィ ッ ク の 制御 (GRAPH. FNC) 


APAGE (70: 人 洗 :、 電 (人 (0 あう 75 PALET 了 人 6 (7818 人 (9 玉 36!)、 誠 3193 7(83816: 洛 1 Ge7ede6Tere7 176 
BOX [1557 人 (919 (00619 (6) 和泊 人 誠 」7 あ が 89 POINT 1181 3 性 6 い ) 和 61 あい 記 !Y「 き 81017 お 本 5 人 な 178 
【 征 (人 W 抽 り 和 CCPGJOCCCGO ス スズ スナ OC で ド に て 93 PSET 上 … の で rme に eeeeeeeseteseeesse 182 
GONNA Sakeoesecaeosses 100 Ps 183 
IN 識 模 人 基 08)5 (9!) 電導:(!G【&y Bi! 114 RGB 7 (19 る) る (91978 76! 拍 18(618:8 き 人 08、 あ 186 
GET 9 人! 人 (人 1.) 人 19】 和 (987! 若 * ie 128 SYMBOL PKKOUKY KYOC TP し YO TK な た で て ルト 214 
Neosessess 131 1V1 7 た 0 3 UECOOCOPH は で で PP 219 
HSV 了 (iie1d が ie 16780( あ 59169 8: 和 91 (0 人 132 WINDOW (12)! 8811 人 の の 
LINE 人 (mt@) er 上 69: 失格) 人 (88:67@:8 8 (ig): 154 WIPE ンー 223 
PAINTT 人 8 (6) ああ 19 了 0 人 介 1/19 (657a[e9y】e、 (95. あ 0: 175 

数 値 演算 

ABS 人 …… 他 上 や に ドド ooeeerreeeevseeeis 74 RANDOMIZE 1 息 ee 184 
ATAN 9 aimimieimimimlWiWe1@: 和 60 宙 (I 和 二流:Wren き 1 人 69 76 RND 93 人 (680309:39)8)9281 和 DBg aa 187 
COS (ei: 和 1 5619(6 い @.' あ (pe: の) 916Y1@ め 0: 100 SGN (全休 陣内: 人!)a1( 析 7 191 
EXP (951!) (9! ai めす (9 の) 和 あ 湯 5: ぼ 竹 ( 109 SIN 誠二 (WS 8.) 洒 80e[m7a11e267WfeNI 直 洲 661 の 192 
0 0 (人 識 GHCGOCLKYOCSUPOPKTTYOOOCCCCYOLK ど の 158 SO 202 
PI い (7 (707 名 )6(181 邊 18 8 (5! 7: るい] 77 SRAND Ti 18 1995 1 1 70660! め 16: 和 1 202 
POW 18 [Sig) 和 (6182816787i (まち 電王 各 、a 179 TAN 人 (ai@ も あり): (5 91618): 吉富 215 
RAND COO 2 イル も て OLCLOLT まで 、 184 

マウ ス の 制御 (MOUSE. FNC) 

MM ee 160 IMSBOS に hs 163 
MSAREA で gr igiaTe7e: 和 (9810 9 人 9 め (516) 人 性 C)50( が す c 161 MSSTAT (Ye 97119 る.) 誠 7 164 
SMN ddoodivssktessseseoscseavewse 162 STPMSEOS………‥:…ー ド ーー ド 0oeetyteo sss 191 
FM 音源 の 制御 (MUSIC. FNC) 

M_ALLOC ドド ionrm 165 MSTA ii 168 
M ASSIGN (人 386 90816:6cet@ Wi80 あ (757 165 M STOP 生 ta(a7a:aiwimta7a74.374 ず 9 る 7 9 の (生生 e) 和 &6 169 
IM CONT 067 人 05 本 519 の 5) WI 166 M _TEMPO 人) 人 8) 和 ( ) あ 8! 人 86: 電 拓 1g(e 170 
IM FREE 半 8708( 和 761. 大. (8 の 1 所 166 IM 征 RK 吉信 !g(8 和 人 (:1 名 )(:): 地 'e1 あ 人 有 aT90 誠 eg 7 
IM INIT af ei (人 7 (1 9110 区 9 生き 69009:ha 和 人 167 IM WGET 吉 187(9( あ 99) 計 09(gTgtEtW1&19wimidRWeeia ei 171 
IM LAY (9: 和 1616: 王 16. 全 @] 吉 8287638ai あ さら 知人 167 M VSETT 和 m( 91:[9!0(1 人 6 人: 1 1(6: 和 お: 衝 (a 和 1197 7 な 7 
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機能 別 索 引 


スプ ライ ト の 制御 (SPRITE. FNC) 


BG_ FILL oe 83 SPDTSP mee 196 
BGA GE ri 84 SPLITNITT ee 197 
BGPUT eee 85 SP_ MOVE の oon 197 
B _SCROLL gs 2133 りみ RWw ホ 9.9 ぐ 76 89 86 SP _OFF GEO て OTDOOP ん LCKCL 198 
BG SET rr 86 SPOON 198 
BG STAT me 87 SPA ii 199 
に ) 0 ECOOHRCHHEHHHHHKOOCEOTET 193 ト ) に ) 0 MCEOHRREOHHHHHHHHOOOUEHHHOOUEHOD 200 
SP COLORmrererererererii 193 に ) 詳 に 7 V:W UECOOOKKIKOOOOEEOOD 201 
に 1 り ) EPRERRRRRRRRRRRRRRRE 194 

文字 列 処理 

TINSTR he 143 MIRROR Si 159 
SATPNIUUMU eieebeaseeatrteeaesdsezsios 144 TRIO 相生 2e 3602260020022003uaokyotoe 2 187 
ISALPHA 上 …tUli…ー ド ドド ドド 145 に 1 プ パ 10K: 全 ECCEECEECOOEOCPUEPDCEPPPEPCCPTPCCPPOPD 192 
SSR2522526 お 93eeo こ st こっ っ ob で CGCeet 2 145 【SY4 RI 54 1 SU 本 52 の OPECOOPTCCKKE 205 
ISCNTRL…… 尺 ブ に oe 146 STRCSPN 上 上 ……0t で に に に に に に に "ーー 206 
TS 146 SPRING om ドド oto 208 
ST を 2008 交 和 OSPFP 147 STRLEN (LEN)…t… の rremreeeererere・ 208 
ISLOWER… 〇 … の ドド eee 147 STRLWER … ド ドド om 209 
NSPRITNI RoeoPOC726YeCO2 eetes nos 148 TVRINISR eeetsset2aeeoederoesse 209 
TSEPNINIC 和 os Re ter 148 TREE 3 eeoeioatevnesrees 210 
ISSPACE oh 149 STRREV の 210 
SI 邊 中 中 BMP 計 EEPPPPPHD も 7 て 149 SI 胃 CAS1 5 時 335EHGPSC37 の 71 も 211 
1 SI 】【⑬3 COCP の 150 GPRS 2 ツ の で CO ae 211 
LEET oeohoeheheheieieiiii 153 STRTOK il ドド 212 
VI0D 倒 CCCOOOEPEEPEPPEEPEEEEPPREEEEEEEEEEEEE 159 STRUPR ore 212 
ジョ イス ティ ッ ク 入 力 (STICK. FNC) 

STTCK oh 203 STRIG omoro 207 
スズ ス デ ー ド トメ ント 

BE 82 COLOR te 95 
15】 RM OCG 入 CEC OPTPTRPYCCPCC 90 COLOR [hon 96 
CHAR で ……… 上 ドド ドー ドー ドー 90 CONSOLE ーー oooen…… 97 
CLS ーー ドド 94 CONTINUE 上 上 〇 に ドド に ーーー 99 
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DIM 30 が 761(G[(5 78)8。 る rg!9 拓 ] あ (8 104 0 大)aig7e9 人 ああ: いき (B[ Ye3!8)611@. 拓 る: [本 151 
NN 介 keyssoeaezeeoigGS の icoGissSiikesf 107 BNIEUN で mes2HcPmccsm ano ssectcsinasesicake 155 
ERROR ON/OFF の な おす: れ を すい! 人 ゆ 169 108 LOCATE 2 た イス ペイ て Y 2 セイ 157 
EXTT (Oh 108 取 RINIT eeoreeeesesgaaztesscssis ssse3s23zdzeos 180 
ELOAT で (em 115 本 BR 185 
ROR NEXT 他 で つい で eee に ・・ 117 REPEA〒ーUNTILO…O で ドド … の …… 186 
FUNCーENDFUNC 一 RETURN ( ) 124 SCREEN RSAeTeieNe0WIg* の が ) 和 か お "LN お T『 世 997 人)6Tre 189 
GOSUB 一 RETURN 97 介 7 い あ も. きる 58 5( る re る 129 STOP aa ee の:6 らち る の の の |e 9 で る 204 
GOTO OLD ALET KO LA AOLR STI ) ト 130 3 記 や る 9 る 9 6 9 る 0:@.0.6:9'6'@ 9 る.@.6 や 9rmraie お 15989 976[ る 8.e@76:9)9 204 
IF-THEN-ELSE で ee 133 SWITCH-CASE-DEFAULT-ENDSWITCH ……:213 
INPUT ……… ド ドド 142 WHILE 一 ENDWHILE ……( の ……… 221 
INTT eee 61Y08CIe! 二 3620 り 8111)i67W 光 31 143 

シス テム 変数 

CSRLTN eee 102 和 朗 多 RMecssssossvcssessssstssspvskssosesssdsgtslcse 122 
DATE ii 102 IINIKG 05 人 1EGCEGGEECCCCCCPCCEOCECCPEETYPCPPTEPEE 141 
DAY$ CK 所 本 洒 % KKYLYTY 下 表す 和 1 まい ルッ で 103 POS YY て LT EL ART NOI ま YY ん 179 
(1915 5CCHPCHHH は PL いで 107 MY OR: 全 COCEEEEPUPOCPPCPPCPPPPPPCPPPPPEPPCFPEHP 216 
イメ ー ジ 処理 (IMAGE. FNC) 

(5 訟 COCOOOK の YY 101 IMG_ PUT moe 137 
IMG_COLOR ooo 134 IMG SAVE oon 138 
IMG_ HOME emem 135 IMG_ SCRN oe 139 
IMG He 136 IMG SET mhr 140 
IMG_ LOAD omo 136 IMG_ STILL oi 141 
IMG POS rr 137 VOUT ri 220 
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日 Z】 
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EGG 5E 示 未 款 灯 記 款 珠 未 ド 未 未 折 訂 玉 


に 
グ ャ セー の 本 式 芸 桂 
本 社 〒545 大 阪 市 阿倍 野 区 長池 町 22 番 22 号 
電話 06(621) 1221( 大 代表 ) 
電子 機器 事業 本 部 〒329-21 栃木 県 矢板 市 早川 町 1 ノ 4 番 地 
電話 02874 (3) 1131( 大 代表 ) 


お 客 様 へ …… お 買い あげ 年 月 日 、 お 買い あげ 店 名 を 記入 され ます こと 、 修 理 な どの 依頼 の と き に 便利 で す 。 


お 買い あげ 年 月 日 年 月 日 


お 買い あげ 店 名 


| 電話 番号 


ミッ 
相 談 窓 男 TMAN-3679CEZZ 


電話 番号 T0378-A 


